请大家帮个忙，很简单的

Question

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu menuname
End If
End Sub

Answer 1

先用菜单编辑器创建一菜单项,包括"复制,剪贴"等子菜单,然后调用popupmenu menuname,menuname 为主菜单名

Answer 2

1.使用菜单编辑器创建菜单
2.使用POPUPMENU方法激活菜单
在窗体的MOUSEDOWN事件中
private sub form_mousedown(button as integer,shift as integer,
x as single,y as single)  if button =vbRightButton then
     PopupMenu mnuEdit
  end if
end sub

Answer 3

在菜单编辑器中编辑你要创建的菜单caidan,然后在窗体中
form_mousedown事件中写
if button=2 then
  popupmenu caidan
end if