' Volumen (Ansammlung von gleichen Flächen)
    Public Class BaseVol(Of T As I_Base)
        Protected mBaseObj As BaseFläche(Of T)
        Protected mAnz As Integer
 
        Public Sub New(ByVal Fläche As BaseFläche(Of T), ByVal iAnz As Integer)
            mBaseObj = Fläche
            mAnz = iAnz
        End Sub
 
        ' die Anz der enthaltenen Flächen
        Public ReadOnly Property AnzahlFlächen As Integer
            Get
                Return mAnz
            End Get
        End Property
 
        ' eine Fläche
        Public ReadOnly Property Fläche As BaseFläche(Of T)
            Get
                Return mBaseObj
            End Get
        End Property
 
        ' die Anzahl aller Objekte
        Public ReadOnly Property AnzObjekte As Integer
            Get
                Return mAnz * mBaseObj.AnzahlObjekte
            End Get
        End Property
 
        ' z.B. das Volumen
        Public ReadOnly Property Volumen As Double
            Get
                Return mBaseObj.Fläche * mAnz
            End Get
        End Property
    End Class
 
 
    ' so hier nun die abgeleiteten Klassen...
 
    ' ein Basis-Element z.B. mit Gewicht
    Public Class MeinElement
        Implements I_Base
 
        Private mHöhe As Double
        Private mLänge As Double
 
        Private mGewicht As Double
 
        Public Sub New(ByVal Länge As Double, ByVal Höhe As Double, ByVal _
          Gewicht As Double)
            mHöhe = Höhe
            mLänge = Länge
            mGewicht = Gewicht
        End Sub
        Public Sub New(ByVal Länge As Double, ByVal Höhe As Double)
            Me.Länge = Länge
            Me.Höhe = Höhe
        End Sub
 
        Public Property Höhe As Double Implements I_Base.Höhe
            Get
                Return mHöhe
            End Get
            Set(value As Double)
                mHöhe = value
            End Set
        End Property
        Public Property Länge As Double Implements I_Base.Länge
            Get
                Return mLänge
            End Get
            Set(value As Double)
                mLänge = value
            End Set
        End Property
 
        ' z.B. Gewicht
        Public Property Gewicht As Double
            Get
                Return mGewicht
            End Get
            Set(value As Double)
                mGewicht = value
            End Set
        End Property
    End Class
 
    ' eine Reihe auf der Basis von MeinElement
    Public Class MeineReihe
        Inherits BaseReihe(Of MeinElement)
 
        Private mGewicht As Double
 
        Public Sub New(ByVal BaseObj As MeinElement, ByVal iAnz As Integer)
            MyBase.New(BaseObj, iAnz)
        End Sub
 
        Public Sub New(ByVal Länge As Double, ByVal Höhe As Double, ByVal iAnz _
          As Integer)
            MyBase.New(Länge, Höhe, iAnz)
        End Sub
 
        ' Erweiterung um das Gewicht
        Public Property Gewicht As Double
            Get
                If Me.ContainsObject Then Return mAnz * mBaseObj.Gewicht
                Return mAnz * mGewicht
            End Get
            Set(value As Double)
                mGewicht = value
            End Set
        End Property
    End Class