Private Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _
   As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_GETSELITEMS = &H191
 
Private Sub Command1_Click()
' Welche Einträge sind selektiert ?
Dim Items() As Long
Dim X As Integer
Dim Nums As Integer
Nums = List1.SelCount
	If Nums Then
   		ReDim Items(Nums - 1)
   		SendMessage List1.hwnd, LB_GETSELITEMS, Nums, Items(0)
	End If
	For X = 0 To Nums - 1
   		MsgBox List1.List(Items(X))
	Next X
 
End Sub
 
Private Sub Form_Load()
Dim i As Integer
	For i = 0 To 20
		List1.AddItem "Eintrag" & i
	Next i
End Sub