'alle klassen die ein interface implementieren finden
        Dim a As System.Reflection.Assembly = _
          System.Reflection.Assembly.GetExecutingAssembly()
        Dim t As Type
        For Each t In a.GetExportedTypes()
            If t.IsInterface = True Then Stop
            For Each inter In a.GetExportedTypes()
                If inter.GetInterface(t.Name) IsNot Nothing Then Stop
            Next
        Next