Sub ChangeLanguage()
        Select Case cobLanguage.SelectedIndex
            Case 1
                System.Threading.Thread.CurrentThread.CurrentUICulture = New _
                  System.Globalization.CultureInfo("de")
                System.Threading.Thread.CurrentThread.CurrentCulture = New _
                System.Globalization.CultureInfo("de-AT")
            Case Else
                System.Threading.Thread.CurrentThread.CurrentUICulture = New _
                  System.Globalization.CultureInfo("en")
                System.Threading.Thread.CurrentThread.CurrentCulture = New _
                System.Globalization.CultureInfo("en-US")
        End Select
        InitializeComponent()
    End Sub
 
    Private Sub cobLanguage_SelectedIndexChanged(sender As System.Object, e As _
      System.EventArgs) Handles cobLanguage.SelectedIndexChanged
        ChangeLanguage()
    End Sub