Red de conocimiento informático - Problemas con los teléfonos móviles - Producción de barra de progreso de VB

Producción de barra de progreso de VB

Min = 0

.Value = 0

Finalizar con

Timer1.Interval = 1000

Timer1.Enabled = False

End Sub

Sub Timer1_Timer privado ()

ProgressBar1.Value = ProgressBar1.Value + 1

Si ProgressBar1.Value = 100 entonces

Label1.Caption = "Listo"

Timer1.Enabled = False

Finalizar si

Finalizar sub