我在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, 试验机
上