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