El codigo mas simple que se me ocurre para una barra de progreso seria algo asi:
Private Sub cmdEmpezar_Click()
Timer1.Interval = 60
End Sub
Private Sub timer1_timer()
ProgressBar1.Value = ProgressBar1.Value + 1
End Sub
Tendrias que insertar un boton, una barra de progreso y el timer.
Este codigo daria error al completar, pero para el ejemplo sirve...
para solucionar el error habria que agregar alguna condicion que frene el ciclo al completar (que deberias aplicarlo a la tarea que estas esperando que termine)
Espero que te sirva, Saludos