Sub New()
        On Error Resume Next
        ' wenn keine Spracheinstellung gefunden wurde starte mit der 
        ' in Windows eingestellten Sprache
 
        If Language.GetCulture = "" Then
            'lese die Spracheinstellungen aus der Application ein
            Dim mac As String
            Dim muic As String
            mac = My.Application.Culture.ToString
            muic = My.Application.UICulture.ToString
 
            Language.SetLanguage(mac.Substring(0, 2))
 
        ElseIf Language.GetCulture = "de-DE" Then
            My.Application.ChangeUICulture("de-DE")
            My.Application.ChangeCulture("de-DE")
        ElseIf Language.GetCulture = "en-US" Then
            My.Application.ChangeUICulture("en-US")
            My.Application.ChangeCulture("en-US")
        End If
        On Error GoTo 0
 
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
        'setze den richtigen HilfeFile
        If Language.GetCulture = "de-DE" Then
            Help.HelpNamespace = "Help\de\Hilfe.de.chm"
        Else
            Help.HelpNamespace = "Help\en\Hilfe.en.chm"
        End If
    End Sub