Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then '激活Form2的浮动菜单，mnuMain为顶级菜单名称 PopupMenu aa End If

End Sub 呵呵，写好了，可就是做的不漂亮，怎么能美化一下呢？像个真正的右键？