Toolbar1_ButtonClick

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComCtlLib.Button)
      Select Case Button.Key
       case “”     ' "" 里面是你按钮 的 索引 也就是 名称 
。。。。。。。。。。。。。 ' 。。。。。。。。。是你点击这个按钮要执行的语句
     case “”
。。。。。。。。。。。
End   Select 
End Sub