Public Class Member
Private _Id As Integer = 0
Private _Name As String = String.Empty
Public Property Id() As Integer
Get
Return _Id
End Get
Set(ByVal Value As Integer)
_Id = Value
End Set
End Property
Public Property Name() As String
Get
Return _Name
End Get
Set(ByVal Value As String)
_Name = Value
End Set
End Property
Public Sub New()
'default
End Sub
Public Sub New(ByVal id As Integer, ByVal name As String)
Me.Id = id
Me.Name = name
End Sub
End Class
Public Class Group
Private _Name As String = String.Empty
Private _Members As Member()
Public Property Name() As String
Get
Return _Name
End Get
Set(ByVal Value As String)
_Name = Value
End Set
End Property
Public Property Members() As Member()
Get
Return _Members
End Get
Set(ByVal Value As Member())
_Members = Value
End Set
End Property
Public Sub New()
'default
End Sub
Public Sub New(ByVal name As String, ByVal members() As Member)
Me.Name = name
Me.Members = members
End Sub
End Class