' eine Menge von Reihen, wobei 2 unterschiedliche
    ' Typen von Reihen unterstützt werden sollen
    ' alle allerdings vom Typ IBase!
    Public Class BaseFläche(Of T As I_Base)
        Protected mBaseObj As T
        Protected mReiheTyp1 As BaseReihe(Of T)
        Protected mReiheTyp2 As BaseReihe(Of T)
        Protected mReihen As List(Of BaseReihe(Of T))
        Protected mAnzObj As Integer
 
        Public Sub New()
            mReihen = New List(Of BaseReihe(Of T)) '(momentan noch leer)
        End Sub
        Public Sub New(ByVal BaseObj As T, ByVal iAnz1 As Integer, ByVal iAnz2 _
          As Integer)
            mReihen = New List(Of BaseReihe(Of T)) '(momentan noch leer)
 
            mBaseObj = BaseObj
 
            ' Reihen anlegen
            mReiheTyp1 = New BaseReihe(Of T)(mBaseObj, iAnz1)
            mReiheTyp2 = New BaseReihe(Of T)(mBaseObj, iAnz2)
        End Sub
 
        Protected Overridable Sub AddReiheTyp1(ByVal oReihe As BaseReihe(Of T))
            ' Anweisungen für das Hinzufügen einer Reihe Typ1
            ' ...
 
            With mReihen
                .Add(oReihe)
                mAnzObj += oReihe.AnzElemente
            End With
 
            ' weitere Anweisungen...
        End Sub
 
        Protected Overridable Sub AddReiheTyp2(ByVal oReihe As BaseReihe(Of T))
            ' Anweisungen für das Hinzufügen einer Reihe Typ2
            ' ...
 
            With mReihen
                .Add(oReihe)
                mAnzObj += oReihe.AnzElemente
            End With
 
            ' weitere Anweisungen...
        End Sub
 
        ' eine Füllfunktion für alle Reihen Typ1
        Public Sub Fill_Schema1(ByVal ReiheTyp1 As BaseReihe(Of T), ByVal _
          iAnzReihen As Integer)
            If ReiheTyp1 Is Nothing Then Return
 
            mReiheTyp1 = ReiheTyp1
            mReiheTyp2 = Nothing
 
            With mReihen
                .Clear()
                mAnzObj = 0
 
                For i As Integer = 0 To iAnzReihen
                    AddReiheTyp1(mReiheTyp1)
                Next i
            End With
        End Sub
 
        ' noch eine Füllfunktion für alle Reihen Typ1
        Public Sub Fill_Schema1(ByVal Element As T, ByVal iAnzElemente As _
          Integer, ByVal iAnzReihen As Integer)
            If Element Is Nothing Then Return
 
            mReiheTyp1 = New BaseReihe(Of T)(Element, iAnzElemente)
            mReiheTyp2 = Nothing
 
            With mReihen
                .Clear()
                mAnzObj = 0
 
                For i As Integer = 0 To iAnzReihen
                    AddReiheTyp1(mReiheTyp1)
                Next i
            End With
        End Sub
 
        ' eine Funktion für Abwechselnde Füllung
        Public Sub Fill_Abwechselnd(ByVal ReiheTyp1 As BaseReihe(Of T), ByVal _
          iAnzReihenTyp1 As Integer, ByVal ReiheTyp2 As BaseReihe(Of T), ByVal _
          iAnzReihenTyp2 As Integer)
            ' prüfen, das die übergebenen Reihen nicht Nothing sind!
            ' ...
 
            'Füllung nach einem gewissem Schema... 
            'hier einfach mal 2x Reihe1 und 1x Reihe2
            With mReihen
                .Clear()
                mAnzObj = 0
 
                mReiheTyp1 = ReiheTyp1
                mReiheTyp2 = ReiheTyp2
 
                AddReiheTyp1(mReiheTyp1)
                AddReiheTyp2(mReiheTyp2)
                AddReiheTyp1(mReiheTyp1)
            End With
        End Sub
 
        ' Summe aller Objekte
        Public ReadOnly Property AnzahlObjekte As Integer
            Get
                Return mAnzObj
            End Get
        End Property
 
        ' das zu Grunde liegende Objekt
        Public ReadOnly Property Element As T
            Get
                If mReiheTyp1 IsNot Nothing AndAlso mReiheTyp1.ContainsObject _
                  Then Return mReiheTyp1.Element
                If mReiheTyp2 IsNot Nothing AndAlso mReiheTyp2.ContainsObject _
                Then Return mReiheTyp2.Element
                Return mBaseObj
            End Get
        End Property
 
        ' Reihe Typ1
        Public ReadOnly Property ReiheTyp1 As BaseReihe(Of T)
            Get
                Return mReiheTyp1
            End Get
        End Property
 
        ' Reihe Typ2
        Public ReadOnly Property ReiheTyp2 As BaseReihe(Of T)
            Get
                Return mReiheTyp2
            End Get
        End Property
 
        ' die gesamte Auflistung an Reihen
        Public ReadOnly Property Reihen As List(Of BaseReihe(Of T))
            Get
                Return mReihen
            End Get
        End Property
 
        ' z.B. die Fläche über ext. Funktion ermittelt
        Public ReadOnly Property Fläche As Double
            Get
                ' Hier Fehler angezeigt!!!
                Return m_GetReihenFläche(mReihen)
            End Get
        End Property
    End Class