VB 倒计时
VB源代码倒计时程序 PrivateSubTimer1_Timer() IfTime-t>1/24/3600Then iTime=iTime-CDate("00:00:01") Label3=Right(CStr(iTime),8) IfLabel3="00:30"ThenLabel1.ForeColor=vbRed IfLabel3="00:00"Then Timer1.Interval=0 Cr
VB源代码倒计时程序 PrivateSubTimer1_Timer() IfTime-t>1/24/3600Then iTime=iTime-CDate("00:00:01") Label3=Right(CStr(iTime),8) IfLabel3="00:30"ThenLabel1.ForeColor=vbRed IfLabel3="00:00"Then Timer1.Interval=0 Cr