Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu menu
End If
End Sub
在网上找的代码并按照其方法把根目录menu的名称的勾去掉了，但在界面上点击鼠标右键没反应
先谢谢各位帮我看看了！！

If Button = 2 Then PopupMenu menu
End If
其中的end if是多余的，该代码应该无法执行。去掉end if后，如果弹出式菜单设计没问题的话，应该是可以显示的。菜单设计和运行结果见下图：

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