先用 菜单编辑器 作一个顶级菜单,就象下拉菜单一样,然后把他的VISIBLE设成FALSE
然后在程序中用POPUPMENU方法Just lisk this:
=========================================Private Sub Form_Load()
            Me.菜单名.Visible = False
End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
            If Button = 2 Then Me.PopupMenu Me.菜单名
End Sub