ghtButton
      End If
      If (wParam And MK_MBUTTON) = MK_MBUTTON Then
         Button = Button Or vbMiddleButton
      End If
      If (wParam And MK_CONTROL) = MK_CONTROL Then
         Shift = Shift Or vbCtrlMask
      End If
      If (wParam And MK_SHIFT) = MK_SHIFT Then
         Shift = Shift Or vbShiftMask
      End If
      x = lParam And &amp;HFFFF&amp;
      y = lParam \ &amp;H10000
      RaiseEvent MouseHover(Button, Shift, x, y)
   Case WM_MOUSELEAVE
      m_bTracking = False
      RaiseEvent M