ae+vbnet自定义工具条，如何实现鼠标在工具条上悬停，在状态栏上显示相应的提示信息？

<P>各位大侠好！</P>
<P>我现在遇到一个问题，想通过鼠标在自定义工具条上悬停，在状态栏上显示相应得提示信息，代码如下，为什么调试的时候在状态栏上没有显示相应的信息呢？请各位帮忙！</P>
<P>Private Sub ToolBar1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ToolBar1.MouseMove<BR>        Dim found As Boolean<BR>        Dim m_Ptbbutton As New ToolBarButton<BR>        Dim Index As Long<BR>        For Index = 0 To ToolBar1.Buttons.Count - 1<BR>             m_Ptbbutton = ToolBar1.Buttons(Index)<BR>              If (e.X > m_Ptbbutton.Rectangle.Left) And _<BR>               (e.X < (m_Ptbbutton.Rectangle.Left + m_Ptbbutton.Rectangle.Width)) And _<BR>               (e.Y > m_Ptbbutton.Rectangle.Top) And _<BR>               (e.Y < (m_Ptbbutton.Rectangle.Top + m_Ptbbutton.Rectangle.Height)) Then<BR>                 If StatusBar1.Panels(0).Text <> m_Ptbbutton.ToolTipText Then<BR>                    StatusBar1.Panels(0).Text = m_Ptbbutton.ToolTipText<BR>                End If<BR>                <BR>                found = True<BR>                <BR>                Exit For<BR>            End If<BR>        Next<BR>        If Not found Then<BR>            StatusBar1.Panels(0).Text = ""<BR>        End If<BR>    End Sub</P>

StatusBar1.ShowPanels=true

谢谢！问题解决了！