check my CODE

[vbPoet]

i want to do as follow
when i click Command1 it has to show dropdown menu of toolbar button
** i have only 1 button and dropdown menu button is associated with it..**

Dim hell As MSComctlLib.Button
Private Sub Command1_Click()
'Set hell = "Hello"          '''' Hello is the name of button on which drop menu is associated
Call Toolbar1_ButtonDropDown(hell)
End Sub
 
Private Sub Toolbar1_ButtonDropDown(ByVal Button As MSComctlLib.Button)
 
End Sub
 
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu
Case "kOiz"
MsgBox "OK"
End Select
End Sub