Imports System.Globalization
Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Dim culture As CultureInfo

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click

    Dim i As Int32

    culture = CultureInfo.CurrentCulture
    Label1.Text = culture.ToString
    Label2.Text = Date.Now.ToString("F")

    Select Case Label1.Text.Substring(0, 2)
      Case "de"
        i = 0
      Case "en"
        i = 1
      Case "fi"
        i = 2
      Case "fr"
        i = 3
      Case "it"
        i = 4
      Case Else
        i = 0
    End Select

    ComboBox1.SelectedIndex = i
    ComboBox2.SelectedIndex = 0
  End Sub

  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load

    With ComboBox1
      .Items.Add("Deutsch")
      .Items.Add("Englisch")
      .Items.Add("Finnisch")
      .Items.Add("Französisch")
      .Items.Add("Italienisch")
      .SelectedIndex = 0
    End With

    With ComboBox2
      .Items.Add("F")
      .Items.Add("f")
      .Items.Add("D")
      .Items.Add("d")
      .Items.Add("G")
      .Items.Add("g")
      .SelectedIndex = 0
    End With
  End Sub

  Private Sub ComboBox1_SelectedIndexChanged(ByVal sender _
          As System.Object, ByVal e As System.EventArgs) _
          Handles ComboBox1.SelectedIndexChanged

    Dim s As String = ComboBox1.SelectedItem
    s = s.Substring(0, 2).ToLower

    Dim cult As CultureInfo = New CultureInfo(s)
    cult = CultureInfo.CreateSpecificCulture(s)
    Label1.Text = cult.ToString
    Label2.Text = DateTime.Now.ToString( _
          ComboBox2.SelectedItem, cult)
    Me.Text = ComboBox1.SelectedItem
  End Sub

  Private Sub ComboBox2_SelectedIndexChanged(ByVal sender _
          As System.Object, ByVal e As System.EventArgs) _
          Handles ComboBox2.SelectedIndexChanged

    Dim s As String = ComboBox1.SelectedItem

    Select Case ComboBox2.SelectedIndex
      Case 0
        Label6.Text = "Datum/Zeit lang, mit Sekunden"
      Case 1
        Label6.Text = "Datum/Zeit lang, ohne Sekunden"
      Case 2
        Label6.Text = "Nur Datum lang"
      Case 3
        Label6.Text = "Nur Datum kurz"
      Case 4
        Label6.Text = "Datum/Zeit kurz, mit Sekunden"
      Case 5
        Label6.Text = "Datum/Zeit kurz, ohne Sekunden"
    End Select

    s = s.Substring(0, 2).ToLower

    Dim cult As CultureInfo = New CultureInfo(s)
    cult = CultureInfo.CreateSpecificCulture(s)
    Label1.Text = cult.ToString
    Label2.Text = DateTime.Now.ToString( _
          ComboBox2.SelectedItem, cult)
    Me.Text = ComboBox1.SelectedItem
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
End Class