actualeSpieler = Spieler.Item(i)

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        ListBox1.Items.Clear()
        For Each actualeSpieler In Spieler
            If actualeSpieler.Nationalität = ComboBox1.SelectedItem Then
                ListBox1.Items.Add(actualeSpieler.Name)
            End If
        Next
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist