Private Sub GermanDeutschToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      GermanDeutschToolStripMenuItem.Click
        Thread.CurrentThread.CurrentUICulture = New CultureInfo("de-DE")
    End Sub

    Private Sub EnglishEnglischToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      EnglishEnglischToolStripMenuItem.Click
        Thread.CurrentThread.CurrentUICulture = New CultureInfo("en-US")
    End Sub