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 [u]As ISpecialItem = New SpecialItem
        Return CType(NewItem, T)
    End Function
 
End Class

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co