Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        ComboBox1.Items.Clear()
 
        Try
            For Each actualeSpieler As clsSpieler In Spieler
                ComboBox1.Items.Add(actualeSpieler.Nationalität)
            Next
        Catch ex As Exception
 
        End Try
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        ListBox1.Items.Clear()
        actualeSpieler = Spieler.Item(ComboBox1.SelectedIndex + 1)
        ListBox1.Items.Add(actualeSpieler.Name)