Bueno la pregunta es como ago para que la "ProgressBar" Tarde cosa de Un minuto en Completarse
bueno un Salu2

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.