Public Class Wire 'Fields Protected m_name As String Protected m_color As String Protected m_guage As Integer 'Properties Public Property Name() Get Return m_name End Get Set(ByVal value) m_name = value End Set End Property Public Property Color() Get Return m_color End Get Set(ByVal value) m_color = value End Set End Property Public Property Guage() Get Return m_guage End Get Set(ByVal value) m_guage = value End Set End Property End Class