Dim Pumpe as new List (of Pumpen)

Public Class Pumpen
 
    'Pumpenvariablen
    Private m_Typ As String
    Private m_gesperrt As Boolean
 
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

Public Class Dichtungen
 
    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 Dichtung as New List (of Dichtungen)