On this code you gave me I set the control color at Focus time to the below but I want a situation when the Focus time out the colour should also. How do I go about that, Thanks.
Code:
Public Sub Flash(ctl As Control)

    Dim dblClock As Double
    Dim lngCount As Long
    
    For lngCount = 1 To 6 ' If you change the 6, make sure it's an even number
        dblClock = Timer
        
        ' Pause .25 seconds
        While Timer < dblClock + 0.25
            DoEvents
        Wend
        ctl.Visible = Not ctl.Visible
    Next
   ctl.SetFocus
   

	
vb Code:

	
  1. ctl.BackColor = &H80000013


    
End Sub