在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