Question

VB6.0里怎么用Timer设置时间开启窗口和关闭

Answer 1

Dim a%Private Sub Command1_Click()
a = InputBox("请入倒计时间（单位S）", , 5) '设置时间倒计时间为5秒
End Sub
Private Sub Timer1_Timer()
a = a - 1
If a = 0 Then
Form1.Hide
Form2.Show
End If
End Sub

Answer 2

设置timer的时长为你要的时间长度