(lpEventTrack As tagTRACKMOUSEEVENT) As Long
Private Const MK_LBUTTON = &amp;H1&amp;
Private Const MK_RBUTTON = &amp;H2&amp;
Private Const MK_SHIFT = &amp;H4&amp;
Private Const MK_CONTROL = &amp;H8&amp;
Private Const MK_MBUTTON = &amp;H10&amp;

' 3 If ALL else fails, then use the work-around:
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom 