Visual Basic - cuneta regresiva

amigos necesito su ayuda, necesito hacer una cuenta regresiva pero que sea en fomrato de horas, por ejemplo si tengo 1:00:00 que retroceda 0:59:59, 0:59:58, etc...
agradezco de antemano su ayuda

No me gusta responder a estas preguntas en las que el interfecto no muestra el mas minimo esfuerzo por resolver sus dudas, peor para vosotros, así no aprendereis nunca, pero hoy estoy algo aburrido.

Necesitas un Form, un Timer y un label

Option Explicit
Dim Hora As Date

Private Sub Form_Load()
Hora = "10:00:00"
Label1 = Hora
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Hora = Hora - 1 / 24 / 60 / 60
Label1 = Hora
End Sub