Public Class cls_toolStripMenuItem
    Inherits ToolStripMenuItem
 
    Private _mouseOverPoint As Point
    Private ReadOnly _timer As Timer
    Public WithEvents Tooltip As ToolTip
    Public ToolTipInterval As Integer = 4000
    Public CustomToolTipText As String = ""
 
    Protected Overrides Sub OnMouseMove(ByVal mea As MouseEventArgs)
        MyBase.OnMouseMove(mea)
 
        If Math.Abs(_mouseOverPoint.X - mea.X) > _
          SystemInformation.MouseHoverSize.Width OrElse Math.Abs( _
          _mouseOverPoint.Y - mea.Y) > _
          SystemInformation.MouseHoverSize.Height Then
            _mouseOverPoint = mea.Location
            If Tooltip IsNot Nothing Then Tooltip.Hide(Me.Parent)
            _timer.Stop()
                _timer.Start()
            End If
    End Sub
 
    Protected Overrides Sub OnClick(ByVal e As EventArgs)
        MyBase.OnClick(e)
        If Tooltip IsNot Nothing Then Tooltip.Hide(Me.Parent)
    End Sub
 
    Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
        MyBase.OnMouseUp(e)
    End Sub
 
    Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)
        MyBase.OnMouseLeave(e)
        _timer.Stop()
        If Tooltip IsNot Nothing Then Tooltip.Hide(Me.Parent)
        _mouseOverPoint = New Point(-50, -50)
    End Sub
 
    Private Sub timer_Tick(ByVal sender As Object, ByVal e As EventArgs)
        _timer.Stop()
        Try
            If Not Equals(CustomToolTipText, Nothing) AndAlso _
              CustomToolTipText.Length > 0 Then
                Dim tipPoint As Point = New Point(Me.Bounds.Location.X + 50, _
                Me.Bounds.Location.Y + 50)
                tooltip.Show(CustomToolTipText, Me.Parent, tipPoint, _
                ToolTipInterval)
            End If
        Catch
            'Just catching if there's no mouseoverpoint.
        End Try
    End Sub
 
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        MyBase.Dispose(disposing)
 
        If disposing Then
            _timer.Dispose()
            tooltip.Dispose()
        End If
    End Sub
 
    Public Sub New()
        MyBase.New()
        _timer = New Timer With {
            .Enabled = False,
            .Interval = SystemInformation.MouseHoverTime
        }
        AddHandler _timer.Tick, New EventHandler(AddressOf timer_Tick)
    End Sub
End Class