Cómo escribir un programa de cuenta regresiva usando VB

Cree un temporizador Timer1 y una etiqueta LabTime en el formulario

Private Sub Form_Load()

Dim Days As Integer

Dim Times Como fecha

Timer1.Enabled = True

Timer1.Interval = 1000

End Sub

Sub Timer1_Timer() privado

Fecha constante0 As Fecha = #10/1/2009 10:10:10 AM# 'Fecha

Días = CInt(fecha0 - Ahora - 0.5) 'Toma la parte entera (número de días )

Veces = CDate(fecha0 - Ahora)

LabDay.Caption = Días y "Día" y Hora(Horas) y "Hora" y Minuto(Veces) y "Min" & Segundo(Veces) & "segundos"

Fin Sub

***Original***!