Parent, WM_ACTIVATE
      Else
         AttachMessage Me, m_hWnd, WM_MOUSEHOVER
         AttachMessage Me, m_hWnd, WM_MOUSELEAVE
      End If
   End If
   
End Sub


Public Sub StartMouseTracking()
Dim tET As tagTRACKMOUSEEVENT
Dim lR As Long

On Error GoTo ErrorHandler

   ' Tells Windows to start tracking the mouse over the specified
   ' hWnd:

   If Not (m_bTracking) Then
      ' Tracking will stop whenever a WM_MOUSEHOVER or WM_MOUSELEAVE
      ' event occurs.
      tET.cbSize = Len(tET)
      tET.dwFl