Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ComctlLib.ButtonMenu)
IF ButtonMenu.parent.index = Then
Select Case Button.Index
Case 1
'第1个按钮功能代码
Case 2
'第2个按钮功能代码
……
Case n
'第n个按钮功能代码
EndSelect
Else If ButtonMenu.parent.index = Then
Select Case Button.Index
Case 1
'第1个按钮功能代码
Case 2
'第2个按钮功能代码
……
Case n
'第n个按钮功能代码
EndSelect
End If
End Sub