给你一个例子.
Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
#If CLIENT = 1 Then
Case "New":
mnuFileNew_Click
Case "TNew":
mnuFileTNew_Click
Case "Save":
mnuFileSave_Click
Case "Discard":
mnuDiscard_Click
#Else
Case "Check":
mnuStartCheck_Click
#End If
Case "PageUp":
mnuPrePage_Click
Case "PageDown":
mnuNextPage_Click
Case "Search":
mnuFind_Click
End Select