我在Form2的load事件里这样写:
Private Sub Form_Load()
Dim X As Integer, Y As Integer
Dim tmp As Long
MsgBox "zfl1" X = Screen.Width / Screen.TwipsPerPixelX Y = Screen.Height / Screen.TwipsPerPixelY
If (X = 1366) And (Y = 768) Then Form2.Width = Screen.Width Form2.Left = 0 Form2.Top = 3100 ResolutionFlag = 1 ResolutionRatio = 13
打包以后并未弹出"zfl1"
那就证明问题还是出在那句
Form2.Show vbModeless, 试验机
上