_bOver = bOver
      Draw
   End If
   If Not m_cMouseTrack Is Nothing Then
      If Not m_cMouseTrack.Tracking Then
         m_cMouseTrack.StartMouseTracking
      End If
   End If
   '
End Sub

Public Sub MouseUp(ByVal Button As MouseButtonConstants, ByVal Shift As
 ShiftConstants, ByVal x As Single, ByVal y As Single)
   '
   m_bPressed = False
   m_bOver = hitTest(x, y)
   Draw
   If (m_bOver) Then
      RaiseEvent Click
   End If
   m_cMouseTrack.StartMouseTracking
   '
End Sub


Public Property Get hI