VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 165 ClientTop = 450 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 '窗口缺省 Begin VB.Menu game Caption = "game" Visible = 0 'False Begin VB.Menu a1 Caption = "aaa" End Begin VB.Menu b1 Caption = "bbbb" End Begin VB.Menu c1 Caption = "cccc" End End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) ' If Button = 2 Then Me.PopupMenu Me.game End If End Sub