hola, talvez esto tambien te sirva.
Solo tienes que tener el
PROGRESSBAR e insertar un control
TIMER.
y escribir el siguiente codigo:
Cita: Private Sub Timer1_Timer()
With Progressbar1
.Value = .Value + 4
If .Value = 100 then
Me. Hide
Form2.Show
Unload Me
End If
End With
End Sub
*No olvides cambiar la propiedad
INTERVAL del
TIMER1 a 600 o el que te convenga, y verifica que la propiedad
ENABLED sea
TRUE