toolbar菜单问题?

[sym1978]

http://www.8dl.com.cn/sym/popmenu.gif

想做如上图时，VB想在他的下拉菜单中点击写代码，请问应该如何写
Private Sub Tbmenu_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim SqlField As String
Dim i As Integer
Select Case Button.Key
Case "all" '全选Ctrl+A
Case "drop" '他的为占位下拉菜单的主键
End Select

End sub
以上代码是写在点击Toolbar,如何在Case "Drop"内写别个的代码

[kimurakenshin]

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

Select Case ButtonMenu.Key

case "1"
事件
case "2"
事件
case "3"
事件
End Select

End Sub

??????????

[3661512]

在ButtonMenuClick事件里写,如:
Private Sub Tbmenu_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
Case "BCOLOR" '
Msgbox "你按下了关键字为BCOLOR的键"
Case "BUNCOLOR" '黑白
Msgbox "你按下了关键字为BUNCOLOR的键"
End Select
End Sub

[czwwh]

根据Button.Key

[zhujiechang]

toolbar在设计时就可以添加菜单,然后在buttonmenuclick中判断就可以

[czwwh]

在ButtonMenuClick事件中捕获， ButtonMenu.Key