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 p>
Label1.Caption = "Listo"
Timer1.Enabled = False
Finalizar si
Finalizar sub