ndParent &lt;&gt; 0) Then
            DetachMessage Me, m_hWndParent, WM_ACTIVATE
         End If
      Else
         DetachMessage Me, m_hWnd, WM_MOUSEHOVER
         DetachMessage Me, m_hWnd, WM_MOUSELEAVE
      End If
      m_hWnd = 0
   End If
   
End Sub
Public Property Get Tracking() As Boolean
   ' Returns whether windows is tracking or not (it stops
   ' everyime a WM_MOUSEHOVER or WM_MOUSELEAVE event is fired):
   Tracking = m_bTracking
End Property

Private Sub Class_Initialize()
   '
End Sub

Priv