Respond to WM_MOUSEHOVER and WM_MOUSELEAVE messages:
   Select Case iMsg
   ' ===============================================
   ' To effect the TrackMouseEvent User32 or
   ' Comctl32 methods:
   Case WM_MOUSEHOVER
      Dim Button As MouseButtonConstants
      Dim Shift As ShiftConstants
      
      m_bTracking = False
      If (wParam And MK_LBUTTON) = MK_LBUTTON Then
         Button = Button Or vbLeftButton
      End If
      If (wParam And MK_RBUTTON) = MK_RBUTTON Then
         Button = Button Or vbRi