倒计时程序vb6.0的

Timer1 时间控件
Text1  设定“Text属性”为总时间
Command1  启动倒计时
Command2  计时归零发生的事件“左边离窗体为0”
Label1   显示“提示信息和时间倒计时”

================================================================================================

Dim EndTime As Date
Private Sub Command1_Click()
    EndTime = Now + CLng(Text1.Text) / (24 * 60)
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
    t = EndTime - Now
    If t < 0 Then
        Timer1.Enabled = False
    Else
        If t >= 1 Then
            Label1.Caption = "距离本次定时还剩 " & Int(t) & "天 " & Format(t, "HH:MM:SS")
        Else
            Label1.Caption = "距离本次定时还剩 " & Format(t, "HH:MM:SS")
        End If