Cómo escribir un programa de cuenta regresiva usando vb

Escrito en VB6.0, cuando se ejecute, haga clic en el botón "Configuración" y aparecerá el cuadro de entrada del cuadro de entrada para que el usuario ingrese el tiempo de cuenta regresiva (en minutos). Haga clic en el botón "Inicio" para mostrar el tiempo restante en el cuadro de texto (en el formato de horas: minutos: segundos) y, al mismo tiempo, el bloque de desplazamiento en la barra de desplazamiento se mueve de izquierda a derecha sincrónicamente con el tiempo. atenuar shi mientras

atenuar fen mientras

atenuar miao mientras

Private Sub form_load()

fen=val(0 )

miao=val(0)

shi=val(0)

end sub

Subcomando privado2_click()

fen=inputbox("time","input","")

si fen>=val(60) entonces shi=val(shi)+val(1)

finalizar sub

Subcomando privado1_click()

Timer1.Enabled=true

finalizar sub

Subtemporizador privado1_timer( )

si miao<>val(0) entonces

miao=miao-1

fin si

si miao=val( 0) y fen <>val(0) entonces

fen=fen-1

miao=60-1

end if

si miao=val(0) y fen =val(0) y shi <>val(0) entonces

shi=shi-1

fen=60-1

miao=60-1

fin si

si miao=val(0) y fen =val(0) y shi =val(0) entonces

msgbox("¡El tiempo se acaba!")

timer1.Enabled=False

end if

text1.text="Izquierda " & shi & "hora" & fen & "minuto" & miao & "segundo"

end sub