Gracias otra vez, yo he puesto a la propiedad max de la progressbar1 '50.000', y en el evento timer del timer1, he puesto eso:
for i = 1 to 50000
progressbar1.value = i
next1
el timer1 tiene un interval de 100
así la progressbar se llena poco a poco y no se llena de golpe
Venga salud2 amigo.