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_GETSELCOUNT = &H190

Dim lCount As Long
<font color=green>' Anzahl der ausgewälten Einträge bestimmen</fnt>
lCount = SendMessage(List1.hwnd, LB_GETSELCOUNT, 0, 0)