status bar moving as a timer counts

Hey,

Should be a simple thing... I want to use a status bar in a form. I want the "loading" part of it to gradually increase as a timer counts. If this isn't possible, how would you do this simply using a Progress Bar?

Thanks,

JJ
jm_jacksonAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
trkcorpConnect With a Mentor Commented:
on the status bar you could just "show" the count...

Do Until timer_count = timer_at_100_pct
   timer_count = timer_count + 1
   progressbar1.value = timer_count
   StatusBar1.Panels(1).Text = "Current Count: " & timer_count
   'me.refresh if necessary, but usually isn't...
loop
MsgBox "Loaded"
0
 
trkcorpCommented:
Not sure I understand what you mean about the status bar but a progress bar is very simple.

progressbar1.value = 0
Progressbar1.max = timer_at_100_pct 'the full value

in your "load" loop:

Do Until timer_count = timer_at_100_pct
    timer_count = timer_count + 1
    progressbar1.value = timer_count
loop
MsgBox "Loaded"
0
All Courses

From novice to tech pro — start learning today.