你这N个button有一个Key,通过Key值来写代码,如下例:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
Case "打开"
mnuFileOpen_Click '此处写“打开”代码
Case "保存"
shujujieshou_Click '此处写“保存”代码
Case "新建"
shujuchuli_Click '此处写“新建”代码
End Select
End Sub