Public Function GetConverterFromType(ByVal t As Type) As TypeConverter
      ' Alle Attribute ermitteln
      Dim attributes As Object() = t.GetCustomAttributes(GetType( _
        TypeConverterAttribute), False)
 
      ' Prüfen, ob die Anzahl gleich 0 ist; true -> Nothing zurückgeben
      If attributes.Length = 0 Then Return Nothing
 
      ' Ermittel den vollständigen Name des TypeConvterAttribute und daraus den 
      ' Type
      Dim convType As Type = GetTypeFromString(DirectCast(attributes(0), _
        TypeConverterAttribute).ConverterTypeName)
 
      ' Prüfe, ob der Type Nothing ist; true -> Nothing zurückgeben
      If convType Is Nothing Then Return Nothing
 
      ' Instanz des Konverters erstellen und zurückgeben
      Return DirectCast(Activator.CreateInstance(convType), TypeConverter)
   End Function
 
   Private Function GetTypeFromString(ByVal value As String) As Type
      ' Alle Assemblies laden
      Dim assemblies() As Reflection.Assembly = _
        System.AppDomain.CurrentDomain.GetAssemblies
 
      ' Iteriere durch jede Assembly
      For Each assembly In assemblies
         ' Iteriere durch jeden Type in der Assembly
         For Each t As Type In assembly.GetTypes()
            ' Überprüfe den vollständigen Name
            If t.AssemblyQualifiedName.ToLower = value.ToLower Then
               ' Bei Übereinstimmung Type zurückgeben
               Return t
            End If
         Next
      Next
 
      ' Nichts gefunden -> Nothing zurückgeben
      Return Nothing
   End Function