Sub New()
        Select Case My.Settings.StartLanguage
            Case 1 'German
                My.Application.ChangeUICulture("de")
                My.Application.ChangeCulture("de-DE")
            Case Else 'English
                My.Application.ChangeUICulture("en")
                My.Application.ChangeCulture("en-US")
        End Select
        InitializeComponent()
    End Sub
 
    Private Sub cobLanguage_SelectedIndexChanged(sender As System.Object, e As _
      System.EventArgs) Handles cobLanguage.SelectedIndexChanged
        If Not AppFullyLoaded Then Exit Sub
        My.Settings.StartLanguage = cobLanguage.SelectedIndex
        My.Settings.Save()
        Application.Restart()
    End Sub