[VB]Mehrsprachigkeit mit Text-Dateien

[Lykke]

Heyho,
ich poste hier mal nen Source-Code. Ich hab ihn schon in nem anderen Forum gepostet, also nicht wundern, hab ich geschrieben

    Public Sub Translate(ByVal File As String)
        Dim temp() As String
        temp = System.IO.File.ReadAllLines(File) 'Die Datei einlesen
        Dim i As Integer
        Dim t As Array
        For i = 0 To UBound(temp)
            t = Split(temp(i), ";") 'Splittet den String
            Me.Controls(t(0)).text = t(1) 't(0) = ControlName t(1) = Übersetzung
        Next
     End Sub

Diese Funktion übersetzt die Form. Nun brauchen wir aber noch eine
Sprachdatei die so aufgebaut ist:

z.b. Englisch.txt:

Button1;Start
Button2;Exit

also als erstes steht der Control-Name und dann die Übersetzung,
diese beiden Strings werden durch ein ";" getrennt.

Aufruf:

Translate(application.StartupPath & "\englisch.txt")

Viele Grüße