怎样在右击PICTURE等控件时弹出POPUP菜单

Question

选择对象的鼠标事件，菜单编辑时设置好visible=false,事件发生时，菜单可见 popupmenu 就可以了。 

Answer 1

先编辑一个菜单MenuFile。visible=falsePrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then         '如果是右键
    PopupMenu MenuFile
End If
End Sub用MouseDown事件，不然无法判断左键还是右键。

Answer 2

在picture控件的MouseDown或MouseUp事件中调用PopupMenu函数弹出Popup菜单.