Öncelikle menü editör ile bir menü yaratin.
Asagidaki gibi:
Button Menu (Menu name: mnuBtn, Visible: False - Unchecked)
....SubMenu Item 1 (Menu name: mnuSub, Index: 0)
....SubMenu Item 2 (Menu name: mnuSub, Index: 1)
....SubMenu Item 3 (Menu name: mnuSub, Index: 2)
....SubMenu Item 4 (Menu name: mnuSub, Index: 3)

ve bir tane de command button hazirlayin ve kodu yerlestirin:
Private Sub mnuSub_Click(Index As Integer)
Call MsgBox("Kliklenen menü: " & Index + 1, vbExclamation)
End Sub
Private Sub Command1_Click()
Call PopupMenu(mnuBtn)
End Sub
Not: Isterseniz daha güzel etki için "Call PopupMenu(mnuBtn)" çagrisi yerine
Call PopupMenu(Menu:=mnuBtn, X:=Command1.Left, Y:=Command1.Top + _
Command1.Height)
çagrisini yada;
Call PopupMenu(mnuBtn, vbPopupMenuCenterAlign, Command1.Left + _
(Command1.Width / 2), Command1.Top + Command1.Height)
çagrisini kullanin.