Dim a As Reflection.Assembly = Reflection.Assembly.Load("mscorlib.dll")
For Each t As Type In a.GetExportedTypes()
  Dim iComp As Type = t.GetInterface("IComparable")
 
  If iComp IsNot Nothing Then
    Console.WriteLine("Der Typ {0} implementiert das Interface IComparable.", _
      t.Name)
    Dim srmi As System.Reflection.PropertyInfo = iComp.GetProperty("ShowName")
  End If
Next