by king (24 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 26th January 2004
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
Easy way to use a progress bar
API Declarations
All you need is a progress bar , and a timer
set the timer event of your choice
on the timer event write this code
Private Sub Timer1_Timer()
on error resume next
If ProgressBar1.Value < ProgressBar1.Max Then
ProgressBar1.Value = ProgressBar1.Value + 1
elseif progressbar1.value = progressbar1.max then
timer1.enabled=false
msgbox " Done"
End Sub