Per avere dall'utente che utilizza il programma maggiore percezione del tempo per svolgere per esempio una copia di un file c'è bisogno di una progressbar

Un esempio facile per crearla:
Create due shape ,un timer e mettete questo codice nel generale del form

Private Sub Timer1_Timer()
Shape1.FillColor = &H00000000&
Shape2.FillColor = &H000000FF&
If Shape2.Width >= Shape1.Width Then End
Shape2.Width = Shape2.Width + 75
End Sub