buenas...
If Progressbar1.value = 100 then
timer1.enabled = false
else
progressbar1.value = progressbar1.value + 10
end if
Suma 10 de la barrita, y cuando esta en 100 se detiene
Lo que mejor te serviria seria ir sumando mediante la carga, pongo un ejemplo.
Public Sub CargarTodo()
Call CargarBD
progressbar1.value = progressbar1.value +20
call cargarTXT
progressbar1.value = progressbar1.value + 20
call CargarBmps
progressbar1.value = progressbar1.value + 20
call cargar Dats
progressbar1.value = progressbar1.value + 40
End Sub
La barra estara en 100 luego de cargar todo...