PopupMenu方法用来显示弹出菜单，语法格式为：
object.PopupMenu menuname,flags,x, y,boldcommand
其中：
Object（对象）——窗体名。
Menuname（菜单名）——指在菜单编辑器中定义的主菜单项名。
X、Y——弹出式菜单在窗体上的显示位置的X、Y坐标（与Flags参数配合使用）。
Boldcommand——指定弹出式菜中的弹出式菜单控件的名字，用以显示为黑体正文标题。
Flags——该参数是一个数值或符号常量，指定弹出式菜单的位置和行为，其取值分为两组，一组用来指定菜单位置，另一组用来定义特殊的菜单行为，如下表：
指定菜单位置
定位常量 值 作用
VbPopupMenuLeftAlign 0 X坐标指定弹出式菜单的左边界位置
VbPopupMenuCenterAlign 4 X坐标指定弹出式菜单的中间位置
VbPopupMenuRightAlign 8 X坐标指定弹出式菜单的右边界位置
定义菜单行为
定位常量 值 作用
VbPopupMenuLeftButton 0 通过单击鼠标左键选择菜单命令
VbPopupMenuRightButton 8 通过单击鼠标右键选择菜单命令
例子：
1、使用菜单辑编器
添加一个 主菜单 name=num2 visible 属设计可以根据需要来定，这里为false
添加三个 子菜单1 name=sub1,子菜单2 name=sub2,子菜单3 name=sub3
如图1
Option Explicit
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu num2, 1, X, Y 'num2 为[主菜单]的名称，其实就是主菜单名称
End If
End Sub
运行，右键。就鼠标处就会显示子菜单例表。如图2
标题：等同于Command的Caption属性，就是用来显示菜单上的文字。
名称：等同于Command的Nane属性,指定菜单的名称。
索引：菜单数组的下标。
复选：以复选框的样式显示菜单。
有效：Enabled
可见：Visible
→按钮:选定的菜单项退一级
←按钮:选定的菜单项向上一级
↑按钮:选定的菜单项向上移动
↓按钮:选定的菜单项向下移动
先输入菜单第一项的标题"文件"和名称"file"，按你的要求，程序运行时不显示，那么就把它的"可见"勾上。
再输入菜单第二项的标题"打开"和名称"open",因为它是在"文件"菜单的下一级,所以按一下"→按钮"
最后输入菜单第三项的标题"保存"和名称"save",不用按按"→按钮".确定完成菜单的编辑.
调出菜单.
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu file
'1为左键,2为右键
'popupnebu <菜单> ..弹出菜单
End Sub
点击代码窗口中控件下拉列表,选择save 或 open 可以对它们进行事件的编程.
