Private Sub mnuLanguageEnglish_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles mnuExtrasLanguageEnglish.Click
        ' im Menüpunkt das Häkchen auf hier:Englisch setzen
        Me.mnuExtrasLanguageEnglish.Checked = Me.changeLanguage()
        ' Region und Sprache global umstellen (gilt ab hier für alle neu 
        ' erstellten Objekte)
        Thread.CurrentThread.CurrentUICulture = New CultureInfo("en-GB")
        ' Dies gilt aber nicht für bereits erzeugte Objekte, deshalb müssen 
        ' alle Controls dieser Objekte aufgefrischt werden.
        ' Dies muss für alle Elemente-Klassen (Control, ToolStripMenuItem, 
        ' ToolStripDropDown etc.) und für jede geschachtelte Ebene getrennt 
        ' erfolgen!
        ' Mein Beispiel enthält nur das ToolStripMenu in der ersten und dann 
        ' ToolStripDropDown in allen folgenden Ebenen.
        RefreshLanguageInMainMenu()
    End Sub
 
    Private Sub RefreshLanguageInMainMenu()
        ' Neues Objekt, dass die sprachlich passenden Strings für das Form 
        ' bereit stellt
        Dim Resource As ResourceManager = New ResourceManager(Me.GetType())
        ' in diesem 1. Schritt wird nur die Kopfzeile des Menüs aktualisiert
        For Each MainMenu As ToolStripMenuItem In Me.MainMenuStrip.Items
            MainMenu.Text = Resource.GetString(MainMenu.Name + ".Text")
            ' hier im 2. bis x-ten Schritt wird das jeweilige DropDown Menü 
            ' aktualisiert
            LooopRefreshDropDown(MainMenu, Resource)
        Next
    End Sub
 
    Private Sub LooopRefreshDropDown(ByVal MainMenu As ToolStripMenuItem, ByVal _
      Resource As ResourceManager)
        ' hier im 2. bis x-ten Schritt wird das jeweilige DropDown Menü 
        ' aktualisiert
        For Each DropDown As Object In MainMenu.DropDownItems
            DropDown.Text = Resource.GetString(DropDown.Name + ".Text")
            ' wenn es kein DropDown Menü gibt, wird der daraus erzeugte Fehler 
            ' abgefangen und damit auch gleich die Endlosschleife abgebrochen
            Try
                LooopRefreshDropDown(DropDown, Resource)
            Catch ex As Exception
            End Try
        Next
    End Sub

MfG
Tim