这个例子在写时有些陌生，无从下手，经过仔细研究，三遍才将其完整的运行，第一遍尝试，第二遍五个按钮中有些运行不了，第三遍自己通过理解与记忆，背着完整的写了出来，而且运行非常成功！以此铭记！具体步骤如下！

Option Explicit
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "打开"
MsgBox "你选择的是打开按钮！","信息提示框"
Case "复制"
MsgBox "你选择的是复制按钮！","信息提示框"
Case "剪切"
MsgBox "你选择的是剪切按钮！","信息提示框"
Case "粘贴"
MsgBox "你选择的是粘贴按钮！","信息提示框"
Case "保存"
MsgBox "你选择的是保存按钮！","信息提示框"
End Select

End Sub