Public Interface ISprachKlasse
 
Function GetLanguageImg() As Image
Function GetLanguageName() As String
 
Function GetTranslatedMessage(ByVal MessageID As Integer) As String
 
End Interface

Public Class English
  Implements ISprachKlasse
 
  ...
End Class

Imports System.IO
Imports System.Reflection
 
...
 
Public languages As List(Of ISprachKlasse)
 
Public Sub LadeSprachen(ByVal sprachOrdner As String)
  Dim di As New DirectoryInfo(sprachOrdner)
  Dim dateien() As FileInfo = di.GetFiles("*.dll")
 
  languages = New List(Of ISprachKlasse)
 
  For Each file As String in dateien
   Dim asm As Assembly = Assembly.LoadFile(file)
 
   For Each t As Type in asm.GetExportedTypes()
    If t.GetInterface("ISprachKlasse") IsNot Nothing Then
      languages.Add(Activator.CreateInstance(t))
    End If
   Next
 
  Next
End Sub

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008