新建一个工程,包含2个窗体FORM1,FORM2,如何实现一个欢迎界面,运行时间3秒,3秒后Form1消失,Form2出现

新建一个工程,包含2个窗体FORM1,FORM2,如何实现一个欢迎界面,运行时间3秒,3秒后Form1消失,Form2出现

在窗体FORM1中写入代码：

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
s = s + 1
If s >= 3 Then
Me.Hide
'或者用：unload me
Form2.Show

End If
End Sub

Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True End Sub

Private Sub Timer1_Timer() Static L As Long L = L + 1 If L = 3 Then Form2.Show Unload Me End If End Sub