关于工具栏和状态栏

[deniler]

在我的程序中有一个工具栏（Toolbar）和一个状态栏（StatusBar），我希望当鼠标停在工具栏的某个按钮上（不按下）则状态栏就给出相应的信息（如按钮名）。就象写字板中的一样，请教应该如何设置和编写代码？谢谢

[zhangqs]

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(1).Text = "AAA"
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(1).Text = "BBB"
End Sub

[deniler]

我主要的问题在如何判断在工具栏上的按钮，当鼠标移置工具栏的按钮上时响应事件