Public Class Item Private m_code As String Public Property Code() As String Get Return m_code End Get Set(ByVal Value As String) m_code = Value End Set End Property End Class