Public Class myNumericUpDown
   Inherits NumericUpDown
 
   Public Event MouseEnterUser(ByVal sender As Object, ByVal e As _
     System.EventArgs)
   Public Event MouseLeaveUser(ByVal sender As Object, ByVal e As _
     System.EventArgs)
 
   Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
      RaiseEvent MouseEnterUser(Me, e)
      MyBase.OnMouseEnter(e)
   End Sub
 
   Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
      Dim mp As Point = MyBase.PointToClient(MousePosition)
      If MyBase.ClientRectangle.Contains(mp) Then Return
      RaiseEvent MouseLeaveUser(Me, e)
      MyBase.OnMouseLeave(e)
   End Sub
End Class