Flashing warning message

[jaydeebe]

I was asked if I could make a message flash on the screen to warn users. I achieved this with this code attached to the form timer property.

Private Sub Form_Timer()
Counter.Value = Counter.Value + 1
If (Counter.Value Mod 2) = 0 Then Box23.Visible = True
If Not (Counter.Value Mod 2) = 0 Then Box23.Visible = False
End Sub

It turns the message on and off based on odd and even numbers from the counter.
Counter is just a text box with a default value of 1.
Box23 is the message.


Jaydeebe BSc (hons)
MCSA 2k
MCSE 2k