我做了一个工具栏，按钮也做好了，可是我不会添加代码，就是在运行后点按钮没用。。。 是不是很丢人？？麻烦帮我做一个示例好吗？ 就用索引为7的按钮做一个退出功能，谢谢了~ Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

End Sub 中间不会写 还有就是，我现在只会在SQL的查询分析器里使用SQL语句，可是怎么在VB中套用啊？我也不会，也举个例子好吗？？谢谢了。。。

...

麻烦写一个啊，我很着急哦~~~

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

     Select Case Button.Key

                Case "打开"

                     …………
               Case "关闭
                  ………………
              Case "退出
                …………………
       End Select
End Sub
"……"号部分省略了具体的事件代码，Key对应工具栏按钮的关键字一栏。判断关键字是什么，根据对应的关键字，写相应的工具栏按钮点击事件代码。