SampleProgBar

Private Sub Form_Load()
Me.Show
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
'_________________________________________________________


Private Sub Timer1_Timer()

PauseTime = 5 ' Set duration.
ProgressBar1.Max = ((PauseTime + 1) * Timer1.Interval)

Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
ProgressBar1.Value = ProgressBar1.Value + 10
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.
MsgBox "Paused for " & TotalTime & " seconds"
Timer1.Enabled = False

End Sub