Public Interface ISpecialItem
    Property Irgendwas() As Object
End Interface
 
Public Class SpecialItem
    Implements ISpecialItem
 
    Private _Irgendwas As Object
 
    Public Property Irgendwas() As Object Implements ISpecialItem.Irgendwas
        Get
            Return _Irgendwas
        End Get
        Set(ByVal value As Object)
            _Irgendwas = value
        End Set
    End Property
 
End Class
 
Public Class SpecialList(Of T As ISpecialItem)
    Public Function GetItem(ByVal Index As Integer) As T
        Dim NewItem As New SpecialItem
        Return NewItem
    End Function
End Class