Code:
Private Sub Command1_Click()
'self explanatory...use the button's left plus it's widht to get to the right side
'then use the button's top plus it's height to get tot the bottom

    PopupMenu smenu, 0, Command1.Left + Command1.Width, Command1.Top + Command1.Height

End Sub