Public Class Widget
Public Sub New(ByVal name As String, ByVal marketValue As Double, _
ByVal magnitude As Long)
Me.Name = name
Me.MarketValue = marketValue
Me.Magnitude = magnitude
End Sub
Private _name As String
Private _marketValue As Double
Private _magnitude As Long
Public Property Name() As String
Get
Return Me._name
End Get
Set(ByVal Value As String)
Me._name = Value
End Set
End Property
Public Property MarketValue() As Double
Get
Return Me._marketValue
End Get
Set(ByVal Value As Double)
Me._marketValue = Value
End Set
End Property
Public Property Magnitude() As Long
Get
Return Me._magnitude
End Get
Set(ByVal Value As Long)
Me._magnitude = Value
End Set
End Property
End Class