[Gambas-user] Progress Bar and event?

[lawrence pires]

Still pretty new to Gambas, but have been playing with the progress bar, but
the damm thing only works when triggered by an event.

Heres what i got:

PUBLIC SUB ProgressBar1_GotFocus()
DIM i AS Integer

ProgressBar1.Visible = TRUE
WAIT
FOR i = 1 TO 246
     ProgressBar1.Value += 0.004
     ProgressBar1.Refresh
  NEXT
ProgressBar1.Visible = FALSE

END

So basically it only works when the mouse is over the progress bar or when i
left click.

How can I have it working automatically without an event? can someone give
me an example?

cheers