弹出式菜单，首先要创建菜单对象。方法是，把你要弹出的菜单当成是一个正常展示在窗体顶部的菜单，使用菜单编辑器将它制作出来。比如：添加一个标题是“弹出菜单”名称是“Menu1”的根菜单项，在其下层你可能要添加复制、粘贴、这是什么…这样的子菜单项作为弹出菜单的内容，内容你随意，这里不细究。最后要把根菜单项的“可见”对勾去掉。
创建完菜单对象后，便可以使用PopupMenu方法来弹出菜单。方法是：
PopupMenu 菜单对象名
继续上个例子，就是
PopupMenu Menu1
这个方法后面还有很多可选参数，如协调位置等，这些待你自己慢慢研究，这里不细究。如果你的弹出菜单是通过按右键弹出的话，通常会把它放到MouseDown事件中，继续上个例子，就是
Private Sub 控件_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then '如果点的是右键
 PopupMenu Menu1
End If
End Sub