)) * vbRightButton + (Abs(iMsg = WM_MBUTTONDOWN)) *
 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;H80000000) = &amp;H80000000 Then
'         y = -(&amp;H8000&amp; - (lParam And &amp;H7FFF0000) \ &amp;H10000)
'      Else
'         y = (lParam \ &amp;H10000)
'      End If
'      RaiseEvent MouseDow