用VB如何制作右键菜单

用菜单编辑器设计菜单，然后在空间的右键按下事件中写入代码，例如：
Private Sub 控件名_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = MouseButtonConstants.vbRightButton Then
PopupMenu mymenu, 标志, X, Y, 默认菜单(即加粗的菜单项)
End If
End Sub

如果要隐藏部分菜单项，可以在popupmenu之前设置菜单的属性，例如
mymenu.visible=false
mymenu.enabled=false
然后在弹出菜单后再恢复原属性