Barra de progreso en Visual Basic 6 - Programación

Hacemos click derecho sobre la barra de herramientas y seleccionamos "Componentes" o del Menu "Proyecto" ya en la ventana palomeamos la casilla que diga "Microsoft Common Controls 6.0(SP6)" o inferior, damos en aceptar y apareceran 9 controles mas en la barra de herramientas, de la barra de herramientas agregamos un ProgressBar(Barra de progreso) y un Timer(reloj).

Declaramos una Variable arriba de todo(En la seccion General) y despues damos doble click sobre el control Timer y agregamos el codigo y modificamos la propiedad Interval del control Timer: 10

Dim i As Integer
--------------------------------------------------------
Private Sub Timer1_Timer()
If i = 100 Then
   Timer1.Enabled = False
Else
   ProgressBar1 = i
   i = i + 1
End If
End Sub

Depende de la propiedad Interval del control Timer para la velocidad de la barra de progreso

Posted in: Visual Basic 6