Un ejemplo:
Dim x As Integer
Private Sub Timer1_Timer()
If x < ProgressBar1.Max Then
ProgressBar1.Value = x
x = x + 5
Else
ProgressBar1.Value = 0
x = 0
Timer1.Enabled = False
End If
End Sub
El intervalo del timer ponlo a 500 o 600. Puedes ir cambiando el intervalo. Mientras más grande sea el número, más tardará en completarse la progressbar.