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

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