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."
        ' obwohl doch mReihe die Schnittstelle IHöhe implementiert!
        Return m_GetFläche(mReihe, mAnzReihen)
    End Function
 
    Private 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 Class