Selected

Private Sub cmdAuslesen_Click()

Beispiel:

'Um mehrere Zeilen auswählen zu können, muß die Multiselect-Eigenschaft auf fmMultiselectMulti gesetzt werden

'Wenn mehrere Einträge einer Listbox markiert sind, erhalten diese die Eigenschaft 'selected'

Dim i%

    For i = 0 To ListBox1.ListCount - 1

        If ListBox1.Selected(i) = True Then

            MsgBox "Der " & ListBox1.List(i, 0) & _

                " ist ein " & ListBox1.List(i, 1)

        End If

    Next i

End Sub