Cómo agregar una barra de progreso en el siguiente código de cuenta atrás de vb

Dim?h,?m,?s,?k,?k1?'Agregar dos variables

Private?Sub?Command1_Click()

h ? =?Int(Val(Texto1.Texto))

m?=?Int(Val(Texto2.Texto))

s?=?Int(Val(Texto3.Texto) )

Comando1.Enabled?=?False

Comando2.Enabled?=?True

k?=?h?*?3600?+?m ? *?60?+?s'Añadir esta frase

Timer1.Interval?=?1000

Timer1.Enabled?=?True

End?Sub

Privado?Sub?Command2_Click()

Temporizador1.Enabled?=?False

Comando2.Enabled?=?False

Comando1 . ¿Habilitado?=?Verdadero

Fin?Sub

Privado?Sub?Command3_Click()

¿Descargar?Yo

Fin?Sub

¿Privado?Sub?Text2_Click()

Texto2.Text?=?""

Fin?Sub

Privado?Text1_Click? ()

Texto1.Texto?=?""

Fin?Sub

Privado?Sub?Text3_Click()

Texto3 . ¿Texto?=?""

Fin?Sub

Privado?Sub?Timer1_Timer()

Etiqueta5.Caption?=?Time()

Si?Comando1.Enabled?=?False?Entonces

Si?s?>?0?Entonces

s?=?s?-?1

Label4.Caption?=?Str(h)?+?":"?+?Str(m)?+?":"?+?Str(s)

ElseIf?s ? ?0?Entonces

m?=?m?-?1

s?=?59

Etiqueta4 . ¿Caption?=?Str(h)?+?":"?+?Str(m)?+?":"?+?Str(s)

ElseIf?s??0?Entonces

h?=?h?-?1

m?=?59

s?=?59

Label4.Caption?=?Str(h)?+?":"?+?Str(m)?+?":"?+?Str(s)

Else

Comando1.Enabled?=?True

Comando2.Enabled?=?False

Temporizador1.Enabled?=?False

Label4.Caption?=?"Cuenta regresiva completada"

¿Fin?Si

Si no

¿Fin?Si

k1?=?h?*?3600?+?m?*?60?+?s?'Agregar esta oración

If?k?<>?0?Then?ProgressBar1.Value? ?

k1?/?k?*?ProgressBar1.Max?'Añadir esta frase

End?Sub