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
 
Const LB_GETCURSEL = &H188
 
Private Sub List1_Click()
 
  Dim Idx As Long
 
  Idx = SendMessage(List1.hWnd, LB_GETCURSEL, 0, 0)
  MsgBox CStr(Idx)
 
End Sub

Gruss,

Zardoz