Dim a As [Assembly] = System.Reflection.Assembly.LoadWithPartialName( _
          "System.Windows.Forms")
 
        Dim o As Object
        For Each t As Type In a.GetTypes()
            Try
                o = a.CreateInstance(t.FullName)
                Debug.WriteLine("Successfuly created type " + t.FullName + "!")
            Catch
            End Try
        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