'API-Deklarationen
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
Private Const LB_GETSELITEMS = &H191
Public Const LB_SETSEL as Long =&H185
'-----------------------------------------------------
 
Dim loAnzahlEintraege As Long
Dim loRetVal As Long
Dim loFeldZiel() As Long
Dim intZeiger As Long
 
' Anzahl der ausgewälten Einträge in Liste1 bestimmen
loAnzahlEintraege = SendMessage(List1.hwnd, LB_GETSELCOUNT, 0, 0)
 
' Feldgrösse festlegen in Liste1
ReDim loFeldZiel(loAnzahlEintraege)
 
' Feld loFeldZiel() mit Indizes der Liste1 füllen
loRetVal = SendMessage(List1.hwnd, LB_GETSELITEMS, CLng(UBound(loFeldZiel)), _
  loFeldZiel(0))
 
' markierten Einträge von Liste1 ermitteln
For intZeiger = 0 To UBound(loFeldZiel) - 1
HierEinFeld(intZeiger) = List1.List(loFeldZiel(intZeiger))
Next

loRetVal = SendMessage(List1.hwnd, LB_SETSEL, ByVal 1, ByVal 1) 'den Index 1 ( 
' Beginn bei 0) auf =true setzen oder mit:
loRetVal = SendMessage(List1.hwnd, LB_SETSEL, ByVal 0, ByVal 1) 'den Index 1 
' wieder auf False setzen.