n(iButton, iShift, x, y)
'
'   Case WM_MOUSEMOVE
'      iButton = Abs(GetAsyncKeyState(vbKeyLButton) &lt;&gt; 0) * vbLeftButton +
 Abs(GetAsyncKeyState(vbKeyRButton) &lt;&gt; 0) * vbRightButton +
 Abs(GetAsyncKeyState(vbKeyMButton) &lt;&gt; 0) * vbMiddleButton
'      iShift = wParam
'      If (lParam And &amp;H8000&amp;) = &amp;H8000&amp; Then
'         x = -(&amp;H8000&amp; - (lParam And &amp;H7FFF&amp;))
'      Else
'         x = (lParam And &amp;HFFFF&amp;)
'      End If
'      If (lParam And &amp;H80000