Mauro,
O resultado desse código é o mesmo do código que utilizo (vide abaixo).
Ou seja, a barra de processo é preenchida de acordo com a configuração do código: Application.Wait Now() + 1 / 60 / 60 / 24
Eu alinhando-o de acordo com o meu computador, não resolve muito, pois a execução dele, no meu entender, é influenciado pela configuração de cada computador.
Enfim, to patinando, abortarei a missão!
ProgressBar1.Visible = True
ProgressBar1.Min = 0
ProgressBar1.max = 3
ProgressBar1.Value = 0
ProgressBar1.Visible = True
For k = 1 To 3
Application.Wait Now() + 1 / 60 / 60 / 24
ProgressBar1.Value = k
Next k
Application.Wait Now() + 1 / 60 / 60 / 24
ProgressBar1.Visible = False
Dim var1, var2 As Date
var1 = Date
var2 = Time
Postado : 12/02/2014 10:34 am