Multiple Timer Events

  • Thread starter Thread starter Duncs
  • Start date Start date
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
 
Static iCount as Integer
iCount = iCount + 1
If iCount >= 30 Then
iCount = 0
Me.lblJoke.Caption = "Did ya hear the one about..."
End If
 
Back
Top