Public Interface IHöhe
    Property Höhe As Double
End Interface
 
 
Public Class Reihe(Of T)
    Implements IHöhe
 
    Dim _höhe As Double
    Dim _obj As T
 
    Public Property Höhe As Double Implements IHöhe.Höhe
        Get
            Return _höhe
        End Get
        Set(value As Double)
            _höhe = value
        End Set
    End Property
 
    Public Property obj As T
        Get
            Return _obj
        End Get
 
        Set(value As T)
            _obj = value
        End Set
    End Property
End Class
 
Public Class Fläche(Of T)
    Private mReihe As Reihe(Of T)
    Private mAnzReihen As Integer
 
    Public Sub New(ByVal R As Reihe(Of T), ByVal Anzahl As Integer)
        mReihe = R
        mAnzReihen = Anzahl
    End Sub
 
    Public ReadOnly Property Anzahl() As Integer
        Get
            Return mAnzReihen
        End Get
    End Property
 
    Public Function GetFläche() As Double
        Return m_GetFläche(mReihe, mAnzReihen)
    End Function
 
    Private Function m_GetFläche(ByVal R As Reihe(Of T), ByVal Länge As Double) _
      As Double
        If R.obj Is Nothing Then Return 0
        Return R.Höhe * Länge
    End Function
End Class