在窗体FORM1中写入代码: Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
s = s + 1
If s >= 3 Then
Me.Hide
'或者用:unload me
Form2.ShowEnd If
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Static L As Long
L = L + 1
If L = 3 Then
Form2.Show
Unload Me
End If
End Sub