Public Class GMElement
        Property _id As String = ""
        Property _name As String = ""
 
        Public Sub New()
        End Sub
    End Class
 
    Public Class Member
        Inherits GMElement
        Property _Alter As Integer
    End Class
 
    Public Class Group
        Inherits GMElement
        Property _Leiter As String
    End Class
 
    Public Class GroupMember
        Public Property Grp As Group
        Public Property Mem As Member
    End Class

    Dim Members As New List(Of Member)
    Dim Groups As New List(Of Group)
    Dim groupsmembers As New List(Of GroupMember)

    For i As Integer = 0 To 10
        Members.Add(New Member() With _
        {._id = CStr(i), ._Alter = 30 + i, ._name = Chr(i + 65)})
 
        Groups.Add(New Group() With _
        {._id = CStr(i), ._Leiter = Chr(i + 75), ._name = Chr(i + 60)})
    Next i
 
    Dim rndm As New Random(12345)
 
    For i As Integer = 0 To 50
        Dim memind As Integer = rndm.Next(0, 11)
        Dim grpind As Integer = rndm.Next(0, 11)
 
        groupsmembers.Add(New GroupMember With _
           {.Mem = Members(memind), .Grp = Groups(grpind)})
    Next i

        Dim MembersOfGroup4 As List(Of Member) = _
            (From groupmember In groupsmembers _
                Where groupmember.Grp._id = "4" _
                Select groupmember.Mem).ToList
 
        Dim GroupsOfMember4 As List(Of Group) = _
            (From groupmember In groupsmembers _
                Where groupmember.Mem._id = "4" _
                Select groupmember.Grp).ToList