Multiple Timer Events

[Duncs]

I have a main switchboard form, that has a Timer Event proc, with a
Timer Interval of 1000, which contains the following code:

Me!lblClock.Caption = Format(Now, "dddd, mmm d yyyy, hh:mm:ss AMPM")

However, I would also like to add a random joke / quote to the bottom
of the form. But, I don't want this to be updated every second,
instead every 30 seconds say.

How do I modify my Timer Event proc to cope with this?

Rgds

Duncs

 

[Allen Browne]

Static iCount as Integer
iCount = iCount + 1
If iCount >= 30 Then
iCount = 0
Me.lblJoke.Caption = "Did ya hear the one about..."
End If

 

[Duncs]

So simple Allen.

Why didn't I think about that?

Cheers

Duncs