Private Function GetExtraTypes(ByVal BaseType As Type) As Type()
        Dim a As Reflection.Assembly = Reflection.Assembly.GetAssembly(BaseType)
        Dim List As New List(Of Type)
 
        For Each t As Type In a.GetTypes
            If t.BaseType.Equals(BaseType) Then
                List.Add(t)
                Console.WriteLine("Der Typ {0} ist von {1} abgeleitet.", _
                  t.Name, BaseType.Name)
            End If
        Next
        Return List.ToArray
    End Function

__________________________________________________________________________
Ein Programmierer ist eine Maschine die Koffein in Programmcode umwandelt!
Und Bier in Bug?s

May the source code be with you.