Ayúdenme a modificar la siguiente programación de cuenta regresiva de VB.
Dim sTotal amp, h, m, d, s
Subcomando privado 1_Click()
Temporizador 1. habilitado = verdadero
Temporizador1. Intervalo = 1000
sTotal = DateDiff("s", "00:00:00", Text1.Text)
Conector final
Subtemporizador privado 1_Timer( )
sTotal = sTotal - 1
h = sTotal \ 3600
m = (sTotal Mod 3600) \ 60
s = (sTotal Mod 3600) Mod 60
Texto1. Text = h amp":" ampm amp":" amps
Conector final
puede lograr una cuenta regresiva de un día.