Public Class Test
    Inherits DataList(Of F)
 
    Public Shared Sub TestSub(ByVal Sender As Object)
        Dim S As DataList(Of OnlineFile) = CType(Sender, DataList(Of _
          OnlineFile))
 
        S.Hallo()
    End Sub
 
End Class
 
Public MustInherit Class OnlineFile
 
End Class
 
Public Class F
    Inherits OnlineFile
 
End Class
 
Public Class DataList(Of T As OnlineFile)
 
    Public Sub Hallo()
        Console.WriteLine("Test")
    End Sub
 
End Class