Public Class Pumpe
 
        'Pumpen-Member
        Private m_Typ As String
        Private m_gesperrt As Boolean
 
 
        ''' <summary>Öffentliche Klasse für Pumpen-Dichtungen</summary>
        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
 
 
        ''' <summary>Private Liste der Pumpen-Dichtungen</summary>
        Private m_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
 
 
        Public Property DichtungsListe(Optional ByVal index As Integer = -1) As _
          Dichtung
            Get
                'Rückgabe einer Referenz / Daten in Liste sind änderbar
                'Return m_Dichtungen(index)
 
                'Rückgabe eines Clone / Daten in Liste nicht änderbar
                Dim vl As New Dichtung
                With m_Dichtungen(index)
                    vl.Preis = .Preis
                    vl.Werkstoff = .Werkstoff
                End With
                Return vl
            End Get
 
            Set(value As Dichtung)
                'Referenz in Liste eintragen
                'bei illegalem Index wird das Element angehängt, sonst erneuert
                If index < 0 Or index >= m_Dichtungen.Count Then
                    m_Dichtungen.Add(value)
                Else
                    m_Dichtungen(index) = value
                End If
            End Set
        End Property
    End Class

  Dim mypumpe As New Pumpe("MegaSauger", False)
 
  'Instanz von Pumpe.Dichtung erstellen 
  Dim mydichtung As New Pumpe.Dichtung
 
  With mydichtung
       .Preis = 123.45
       .Werkstoff = "Kevlar"
  End With
 
  'Instanz der Dichtungsliste hinzufügen
  mypumpe.DichtungsListe = mydichtung
 
 
  'Element-Eigenschaft aus der internen Liste der Dichtungen 
  'per Property abfragen
  Dim ws As String = mypumpe.DichtungsListe(0).Werkstoff