ackMethods
   Method = m_eMethod
End Property

Public Sub AttachMouseTracking( _
      objTo As Object, _
      Optional ByVal eForceMethod As EMouseTrackMethods = eMouseTrackDetect _
   )
   
   m_bUseCapture = False
   m_bUseCC = False
   
   ' Check for tracking type if not forced:
   If (eForceMethod = eMouseTrackDetect) Then
      pDetectMethod
   Else
      Select Case eForceMethod
      Case eMouseTrackWorkAround
         m_bUseCapture = True
      Case eMouseTrackComCtl32
         m_bUseCC = True
  