Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, _
             ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim mitgl As String = ListBox1.Text
        Dim anw As Byte = ListBox2.Items.Count + 1
        If ListBox1.SelectedIndex <> -1 Then
            ListBox2.Items.Add(mitgl)
            CType(AdmBindingSource.Current, DataRowView).Delete()
        End If
        Label1.Text = "Anwesende: " & anw
        If ListBox2.Items.Count >= 7 Then
            Label2.BackColor = Color.Green
            Label2.Text = "** Spielbetrieb **"
            Label2.ForeColor = Color.White
            Label3.Visible = True
            Label4.Visible = True
            Label7.Visible = True
            Label8.Visible = True
            Tische_anlegen()
        End If
    End Sub

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

blutiger anf?nger
ich weiss was ich will
aber eben nicht wie es geht