This will flash it red 3 times
Modify it to suit your needs
Code:
Public Sub FlashControl(C As Control)
'/// ====================================================================
'/// By : Mark Sreeves
'/// Started : 27/04/99
'/// Description :
'/// Parameters :
'/// Depends on :
'/// Side Effects : None
'/// Notes :
'/// ====================================================================
'this flashes the background colour of the control to draw the users attention to it
Dim OldColor As Double
Dim Delay As Double
Dim X As Integer
On Error Resume Next
OldColor = C.BackColor
For X = 1 To 3
C.BackColor = QBColor(12)
Delay = Timer
While Timer - Delay < 0.2
DoEvents
Wend
C.BackColor = OldColor
Delay = Timer
While Timer - Delay < 0.2
DoEvents
Wend
Next X
End Sub
------------------
Mark Sreeves
Analyst Programmer
[email protected]
A BMW Group Company