000) = &amp;H80000000 Then
'         y = -(&amp;H8000&amp; - (lParam And &amp;H7FFF0000) \ &amp;H10000)
'      Else
'         y = (lParam \ &amp;H10000)
'      End If
'      RaiseEvent MouseMove(iButton, iShift, x, y)
      
'   Case WM_LBUTTONUP, WM_MBUTTONUP, WM_RBUTTONUP
'      iButton = (Abs(iMsg = WM_LBUTTONDOWN)) * vbLeftButton + (Abs(iMsg =
 WM_RBUTTONDOWN)) * vbRightButton + (Abs(iMsg = WM_MBUTTONDOWN)) *
 vbMiddleButton
'      iShift = wParam
'      If (lParam And &amp;H8000&amp;) = &amp;H8000&amp;