在Toolbar1_ButtonClick事件中添加相应的调用点击菜单的代码即可,下述代码演示了工具栏的打开和保存的功能:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) If Button.Key = "open" Then open_Click'如果是打开按钮则调用菜单的open_Click过程打开文件 If Button.Key = "save" Then save_Click'如果是打开按钮则调用菜单的save_Click过程保存文件
End Sub