制作可以自动隐藏的弹出式菜单(2) ScaleHeight = 3225 ScaleWidth = 4710 StartUpPosition = 3 '窗口缺省 Begin VB.Timer Timer1 Interval = 1000 Left = 2580 Top = 360 End Begin VB.Label LblNow AutoSize = -1 'True Caption = "LblNow" Height = 180 Left = 1410 TabIndex = 1 Top = 210 Width = 540 End Begin VB.Label LblClick AutoSize = -1 'True Caption = "点击鼠标右键" BeginProperty Font Name = "宋体" Size = 26.25