【实例说明】
    在Windows或其他应用程序中，都设置了鼠标的右键弹出式菜单，并在菜单上放置了常用的命令。

【编程思路】
    用PopupMenu方法在MDIForm或Form对象上的当前鼠标位置或指定的坐标位置显示弹出式菜单。下面是PopupMenu的使用介绍：

    语法：object.PopupMenu menuname,flags,x,y,boldcommand
    功能：对象上的当前鼠标位置或指定的坐标位置显示弹出式菜单。
    参数：
        object可选的。一个对象表达式，其值为“应用于”列表中的一个对象。
        menuname必需的。要显示的弹出式菜单名。指定的菜单必须含有至少一个子菜单。
        Flags可选的。
        X可选的。指定显示弹出式菜单的X坐标。
        Y可选的。指定显示弹出式菜单的Y坐标。
        boldcommand可选的。指定弹出式菜单中的菜单控件的名字，用以显示其黑体的正文标题。如果该参数省略，则
            弹出式菜单中没有以黑体字出现的控件。

        用于flag的设置值有：
        vbPopupMenuLeftAlign  0(默认值)弹出式菜单的左边位于X。
        vbPopupMenuCenterAlign  4  弹出式菜单的中心位于X。
        vbPopupMenuRightAlign  8  弹出式菜单的右边位于X。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.源程序  [素材源程序下载]

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Button And vbRightButton Then
                PopupMenu mnuFile '菜单名称为mnuFile
        End If
End Sub

Private Sub mnuFileExit_Click()
        End '菜单mnuFile的子菜单mnuFileExit
End Sub