Public Class Form1
 
  Dim txDeu() As String = New String() {"Lesen", "Schreiben", "Rechnen"}
  Dim txEng() As String = New String() {"Read", "Write", "Calculate"}
 
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
 
    Me.ComboBox1.Items.AddRange(txDeu)
 
  End Sub
 
  Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
 
    Select Case Me.ComboBox2.SelectedIndex
      Case 0 'Deutsch
        For i = 0 To Me.ComboBox1.Items.Count - 1
          Me.ComboBox1.Items(i) = txDeu(i)
        Next
      Case 1 'Englisch
        For i = 0 To Me.ComboBox1.Items.Count - 1
          Me.ComboBox1.Items(i) = txEng(i)
        Next
    End Select
 
  End Sub
 
End Class