Public Module modGlobal
    Public Interface IHöhe
        Property Höhe As Double
    End Interface
 
    Public Class Reihe(Of T As IHöhe)
        Private mInternObj As T
 
        Public Property Obj As T
            Get
                Return mInternObj
            End Get
            Set(value As T)
                mInternObj = value
            End Set
        End Property
    End Class
 
    Public Class Fläche(Of T As IHöhe)
        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
            'Hier wird die Fehlermeldung angezeigt: 
            '"Der Wert vom Typ Reihe(Of T) 
            'kann nicht in Reihe(Of IHöhe) konvertiert werden."
 
            Return m_GetFläche(mReihe, mAnzReihen)
        End Function
    End Class
 
    Public Function m_GetFläche(ByVal R As Reihe(Of IHöhe), ByVal Länge As _
      Double) As Double
        If R.Obj Is Nothing Then Return 0
        Return R.Obj.Höhe * Länge
    End Function
End Module