On Timer Event

[Taff]

Hi all,

I have a form with Five labels on lbl1 to lbl5. What I would like to happen is have all five labels appear one at a time with a one second gap in between.

Have tried on the on timer event but I seem to have all labels appear at once.

Thanks

Ant.

 

[Mile-O]

Private Sub Form_Timer()
    Static bytCounter As Byte
    Me("lbl" & bytCounter + 1).Visible = True
    bytCounter = bytCounter + 1
    If bytCounter = 5 Then TimerInterval = 0
End Sub

 

[Taff]

Thanks again Mile-O-Phile,

Works great.

Ant.

 

[Taff]

One more question,

How do you delay events from happening and cause them to be 2 or maybe three seconds apart?

Ant.

 

[Mile-O]

For each event, set the TimerInterval appropriately.

It works in milliseconds so 1,000 is 1 second.

3,000, of course, is three seconds.