Dim t As Type 
 
        t = GetType(List(Of ))
        Debug.WriteLine(t.IsGenericType.ToString() & " " & _
          t.IsGenericTypeDefinition.ToString())
        = True True
 
        t = GetType(List(Of String))
        Debug.WriteLine(t.IsGenericType.ToString() & " " & _
          t.IsGenericTypeDefinition.ToString())
        = True False
 
        If t Is GetType(List(Of String)) Then
            Debug.WriteLine("Yay!")
        End If
 
        Dim td = t.GetGenericTypeDefinition()
 
        If td Is GetType(List(Of )) Then
            Debug.WriteLine("Yay2!")
        End If
 
        Dim gtps() As Type  = t.GetGenericArguments()
 
        For Each tx As Type In gtps
            Debug.WriteLine(tx.Name)
        Next
 
        'und wenn du ein Objekt hast
        If TypeOf obj Is List(Of String) Then

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist