    End Select
      m_eMethod = eForceMethod
   End If
   
   ' Start subclassing for WM_MOUSEHOVER and WM_MOUSELEAVE
   ' messages:
   
   DetachMouseTracking
   m_hWnd = objTo.hWnd
   If (m_hWnd &lt;&gt; 0) Then
      If (m_bUseCapture) Then
         AttachMessage Me, m_hWnd, WM_MOUSEMOVE
         AttachMessage Me, m_hWnd, WM_LBUTTONUP
         AttachMessage Me, m_hWnd, WM_MBUTTONUP
         AttachMessage Me, m_hWnd, WM_RBUTTONUP
         m_hWndParent = objTo.Parent.hWnd
         AttachMessage Me, m_hWnd