Public 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 LVM_FIRST = &H1000&
Private Const LVM_GETSELECTEDCOUNT = (LVM_FIRST + 50)
 
Public Function lngItemsSelected(ByVal lngHwndListview As Long) As Long
   lngItemsSelected = SendMessage(lngHwndListview, LVM_GETSELECTEDCOUNT, 0, _
     ByVal 0&)
End Function