说来也简单 1、设定窗体属性： A、BorderStyle属性设为0； B、ControlBox属性设为False。（这一点很重要，不然插入菜单后会出现边框） 2、编辑菜单 利用菜单编辑器编辑弹出菜单（例：加S1为一级菜单，它的可见属性为不可见，加S2为二级菜单），如图 3、添加MouseUp事件，如下 Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single) If Button = 2 Then ''''若右键释放，则弹出菜单 PopupMenu S1 End If End Sub 4、搞定，按F5运行，在窗体上点右键试试~~~~~~~~~~~~
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
