Class KGroups
    Friend sGruppenName As String
    Friend sMember As New List(Of String)
 
    Public Sub NewUser(ByVal sUser As String)
        sMember.Add(sUser)
    End Sub
End Class

Class KMember
    Friend sMember As String
    Friend sGruppenName As New List(Of String)
 
    Public Sub NewGroup(ByVal sGroup As String)
        sGruppenName.Add(sGroup)
    End Sub
End Class