Use of the ProgressBar Control

'using the progressbar
'make a new form with a progressbar and a timer
'put thew folowing code in the events

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