Eventhandling bei deaktivierten Controls

Public Class cusToolStrip
  Inherits Windows.Forms.ToolStrip

  Const WM_MOUSEOVER = 512
  Private m_totInstance As New ToolTip
  Private m_shownToolTip4ItemName As String
  Private m_ToolTipSettings As List(Of ToolTipSetting)
  Private SHOWCUSTOMTOOLTIPS As Boolean

  Public Sub New()
    MyBase.New()
    Me.SetStyle(ControlStyles.EnableNotifyMessage, True)
    Me.m_totInstance.Active = False
    Me.ToolTipSettings = New List(Of ToolTipSetting)
  End Sub

  Public Property ToolTipSettings() As List(Of ToolTipSetting)
    Get
      Return Me.m_ToolTipSettings
    End Get
    Set(ByVal value As List(Of ToolTipSetting))
      Me.m_ToolTipSettings = value
    End Set
  End Property

  Protected Overrides Sub OnNotifyMessage(ByVal m As System.Windows.Forms.Message)
    Dim tstItem As ToolStripItem
    Dim x As Integer
    Dim y As Integer
    Select Case m.Msg
      Case WM_MOUSEOVER
        x = GetHiWord(m.LParam.ToInt64)
        y = GetLoWord(m.LParam.ToInt64)
        tstItem = Me.GetItemAt(x, y)
        If IsNothing(tstItem) Then
          m_totInstance.Active = False
          m_shownToolTip4ItemName = String.Empty
          Exit Sub
        End If
        If tstItem.Name = m_shownToolTip4ItemName Then Exit Sub
        ShowToolTip4Item(tstItem)
    End Select
  End Sub

  Private Sub ShowToolTip4Item(ByRef tstItem As ToolStripItem)
    Dim mes As String = ToolTipSettings.Item(tstItem.Tag).Message
      m_totInstance.Active = True
      m_totInstance.ToolTipTitle = ToolTipSettings.Item(tstItem.Tag).Title
      m_totInstance.ToolTipIcon = ToolTipSettings.Item(tstItem.Tag).Icon
      m_totInstance.IsBalloon = ToolTipSettings.Item(tstItem.Tag).IsBaloon
      Dim x = tstItem.Bounds.Left + CInt(tstItem.Width / 1.5)
      Dim y = CInt(tstItem.Height / 2)
      m_totInstance.Show(mes, tstItem.GetCurrentParent, x, y, ToolTipSettings(tstItem.Tag).Duration)
      m_shownToolTip4ItemName = tstItem.Name
  End Sub

  Public Function GetLoWord(ByVal l As Long) As Integer
      Return ((l / &H10000) And &HFFFF&)
  End Function

  Public Function GetHiWord(ByVal l As Long) As Integer
      Return (l And &HFFFF&)
  End Function
End Class

Public Class ToolTipSetting
  Inherits List(Of ToolTipSetting)

  Private m_Title As String
  Private m_Message As String
  Private m_Icon As Windows.Forms.ToolTipIcon
  Private m_Duration As Integer
  Private m_IsBaloon As Boolean

  Public Sub New(ByVal Title As String, ByVal Message As String, ByVal Icon As ToolTipIcon, ByVal Duration As Integer, ByVal IsBaloon As Boolean)
    m_Title = Title
    m_Message = Message
    m_Icon = Icon
    m_Duration = Duration
    m_IsBaloon = IsBaloon
  End Sub

  Public Property Title() As String
    Get
      Return CStr(m_Title)
    End Get
    Set(ByVal value As String)
      m_Title = value
    End Set
  End Property
  Public Property Message() As String
    Get
      Return m_Message
    End Get
    Set(ByVal value As String)
      m_Message = value
    End Set
  End Property
  Public Property Icon() As ToolTipIcon
    Get
      Return m_Icon
    End Get
    Set(ByVal value As ToolTipIcon)
      m_Icon = value
    End Set
  End Property
  Public Property Duration() As Integer
    Get
      Return m_Duration
    End Get
    Set(ByVal value As Integer)
      m_Duration = value
    End Set
  End Property
  Public Property IsBaloon() As Boolean
    Get
      Return m_IsBaloon
    End Get
    Set(ByVal value As Boolean)
      m_IsBaloon = value
    End Set
  End Property
End Class