Public Class Klassen
        Public name As String
        Public klassen As List(Of klasse)
        Public Sub New(ByVal name As String)
            Me.name = name
            klassen = New List(Of klasse)
        End Sub
    End Class
 
    Public Class klasse
        Public name As String
        Public schüler As List(Of person)
        Public Sub New(ByVal name As String)
            Me.name = name
            schüler = New List(Of person)
        End Sub
    End Class
 
    Public Class person
        Dim name As String
        Dim alter As Integer
        Dim gewicht As Integer
        Public Sub New(ByVal name As String, ByVal alter As Integer, ByVal _
          gewicht As Integer)
            Me.name = name
            Me.alter = alter
            Me.gewicht = gewicht
        End Sub
    End Class

        Dim main As New Klassen("kl1")
 
        Dim kl1a As New klasse("kl1")
        kl1a.schüler.Add(New person("michael", 15, 60))
 
        main.klassen.Add(kl1a)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist