, ByVal x As Single, ByVal y As Single)
   '
   Dim bOver As Boolean
   bOver = hitTest(x, y)
   If (bOver) Then
      m_bPressed = True
      m_bOver = True
      Draw
   Else
      If Not (bOver = m_bOver) Then
         m_bOver = bOver
         Draw
      End If
   End If
   '
End Sub

Public Sub MouseMove(ByVal Button As MouseButtonConstants, ByVal Shift As
 ShiftConstants, ByVal x As Single, ByVal y As Single)
   '
   Dim bOver As Boolean
   bOver = hitTest(x, y)
   If Not (bOver = m_bOver) Then
      m