by Brent Embrey (9 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 22nd February 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Flashing Option Button
' set the timer intervals to 500
' set timer2.enabled = false
Private Sub Timer1_Timer()
Option1.BackColor = vbRed
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Timer2_Timer()
Option1.BackColor = Me.BackColor
Timer2.Enabled = False
Timer1.Enabled = True
End Sub