Multiple Timer Events

D

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
 
A

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
 
Top