End If
   Else
      If (rB &lt; rG) Then
         Minimum = rB
      Else
         Minimum = rG
      End If
   End If
End Function

Private Sub Class_Initialize()
   m_bEnabled = True
End Sub

Private Sub m_cMouseTrack_MouseHover(Button As MouseButtonConstants, Shift As
 ShiftConstants, x As Single, y As Single)
   '
   m_cMouseTrack.StartMouseTracking
   '
End Sub

Private Sub m_cMouseTrack_MouseLeave()
   '
   If (m_bOver) Then
      m_bOver = False
      Draw
   End If
End Sub
</pre><p>&#160;</p><p>&#1