求段VB代码

来源：百度知道 编辑：UC知道 时间：2024/06/05 08:28:02
打开form1，5秒后自动关闭，再启动form2（计时用timer）
要VB2005的代码

设Timer1.Enabled＝fales

Private Sub Form_Load()
Me.Show
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Me.Hide
Form2.Show
End Sub

timer1的interval属性设置为1000

Dim i As Integer
Private Sub Timer1_Timer()
If i < 5 Then
i = i + 1
Else
Form1.Hide
Form2.Show
Timer1.Enabled = False
End If
End Sub