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