ion
   ' But don't allow this to get set...
   m_bTracking = False
   
End Sub
Public Sub DetachMouseTracking()

   ' Stops subclassing for mouse tracking commands.
   ' Called automatically when the class terminates.
   If (m_hWnd &lt;&gt; 0) Then
      If (m_bUseCapture) Then
         ReleaseCapture
         DetachMessage Me, m_hWnd, WM_MOUSEMOVE
         DetachMessage Me, m_hWnd, WM_LBUTTONUP
         DetachMessage Me, m_hWnd, WM_MBUTTONUP
         DetachMessage Me, m_hWnd, WM_RBUTTONUP
         If (m_hW