Label Caption Blink or Flash off and on

[Bojangles]

When a certain event takes place, I want to make a label caption blink off and on until the event concludes. What is the best way to do this?
Thanks,
Bojangles

 

[johnwm]

The easy way is to use a Timer with Interval set to 1000 and Enabled set to False.

Use this in the timer code:

Private Sub Timer1_Timer()
Dim temp
temp = Label1.ForeColor
Label1.ForeColor = Label1.BackColor
Label1.BackColor = temp
End Sub

When your event starts :
Timer1.Enabled =True

When your Event finishes:
Timer1.Enabled = False
Label1.ForeColor = vbButtonText
Label1.BackColor = vbButtonFace

This is untested and has no error checking, but it should get you started
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[dragnut]

you can flash a label with this in a timer also...

label1.visible=not label1.visible