Dim asm As Assembly = Assembly.GetExecutingAssembly()
     Dim types As List(Of Type) = asm.GetTypes().Where(Function(t) t.IsClass _
       And Not t.IsAbstract).ToList()
     For Each t As Type In types
         Debug.WriteLine(t.Name)
     Next

________
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