VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Stock"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Sub advance(ByVal days As Integer)

End Sub

Public Property Get initPrice() As Currency

End Property

Public Property Get currPrice() As Currency

End Property

Public Function percentGain() As Single

End Function

Public Property Get pu() As Single

End Property

Public Property Let pu(ByVal sProb As Single)

End Property

Public Property Get upPercent() As Single

End Property

Public Property Let upPercent(ByVal sPercent As Single)

End Property

Public Property Get downPercent() As Single

End Property

Public Property Let downPercent(ByVal sPercent As Single)

End Property

Public Property Get stockName() As String

End Property

Public Property Let stockName(ByVal aName As String)

End Property