咋对toolbar控件中设置好的“打开”“新建”“保存”“复制“编写程序呀？急呀！

咋对toolbar控件中设置好的“打开”“新建”“保存”“复制“编写程序呀？急呀！

我要在窗体上设置一个工具栏，如何对toolbar控件中设置好的“打开”“新建”“保存”“复制”“粘贴”“剪切”编写程序代码呀？各位要多多帮助呀！能帮多少就帮多少，谢谢！

Private Sub tbMainTool_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim strSql As String
Dim rsTemp As New ADODB.Recordset
Select Case Button.Key
Case "add"
ClearCtrl Me
txt(0).SetFocus

tbMainTool.Buttons("Save").Enabled = True
Case "query"
\\\
End Select

End Sub
您看可以不、？靓妹

直接CALL原有的事件啊

在toolbar的双击事件中加入一下代码(测试用户按下了哪一个按钮)：
select case buttons.key
case "a"
'加入a的代码
case "b"
'加入b的代码
...
end select
'其中“a”，“b”是建立工具栏时的索引值