Public Structure MyStruct Private Dim m_MyNumber As Integer Private Dim m_MyString As String Public Property MyNumber As Integer Get Return Me.m_MyNumber End Get Set Me.m_MyNumber = value End Property Public Property MyString As String Get Return Me.m_MyString End Get Set Me.m_MyString = value End Property Public Sub New(ByVal num As Integer, ByVal str As String) Me.m_MyNumber = num Me.m_MyString = str End Sub End Structure