[求助]如何做一个倒计时的程序，谢谢了~
小弟我需要一个倒计时的程序，请高手指点下，谢谢了~
2007-04-19 10:13
2007-04-19 10:30
2007-04-19 12:24
在窗体添加一个Label1、Timer1
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = 100
End Sub
Private Sub Timer1_Timer()
If Label1.Caption = "0" Then
MsgBox "时间到"
Timer1.Interval = 0
Else
Label1.Caption = Val(Label1.Caption) - 1
End If
End Sub
2007-04-19 22:03