制作可以自动隐藏的弹出式菜单(3) Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Left = 720 TabIndex = 0 Top = 1200 Width = 3150 End Begin VB.Menu mnuPopup Caption = "Popup" Visible = 0 'False Begin VB.Menu mnuItem1 Caption = "Item&1" End Begin VB.Menu mnuItem2 Caption = "Item&2" End