Public Class Dichtung
 
        Private m_Werkstoff As String
 
        Public Property Werkstoff() As String
            Get
                Return m_Werkstoff
            End Get
            Set(ByVal value As String)
                m_Werkstoff = value
            End Set
        End Property
 
        Private m_Preis As Single
        Public Property Preis() As Single
            Get
                Return m_Preis
            End Get
            Set(ByVal value As Single)
                m_Preis = value
            End Set
        End Property
 
    End Class
 
    Public Class Pumpe
 
        'Pumpenvariablen
        Private m_Typ As String
        Private m_gesperrt As Boolean
 
        'Hier die Liste der Dichtungen schachteln
        'Diese Instanz von Dichtungen wird zusammen mit der 
        'Pumpe-Instanzh erstellt (New)
        Public Dichtungen As New List(Of Dichtung)
 
        Public Sub New(ByVal Typ As String, ByVal gesperrt As Boolean)
 
            Me.m_Typ = Typ
            Me.m_gesperrt = gesperrt
 
        End Sub
 
        Public Property Typ() As String
            Get
                Return m_Typ
            End Get
            Set(ByVal value As String)
                m_Typ = value
            End Set
        End Property
 
 
        Public Property gesperrt() As Boolean
            Get
                Return m_gesperrt
            End Get
            Set(ByVal value As Boolean)
                m_gesperrt = value
            End Set
        End Property
 
    End Class

Dim pumpen As New List(Of Pumpe)
 
'Verwendung des Konstruktors der Klasse "Pumpe"
pumpen.Add(New Pumpe("knatter", False))
 
'Zuweisung von Eigenschaften bei der Erstellung einer Instanz "Dichtung"
pumpen(0).Dichtungen.Add(New Dichtung With {.Preis = 12345.75, .Werkstoff = _
  "Stahl"})
 
'Abfrage einer Dichtung-Eigenschaft 
Dim ws As String = pumpen(0).Dichtungen(0).Werkstoff
 
'Zuweisung
pumpen(0).Dichtungen(0).Werkstoff = "Plaste & Elaste"