Flashing UserForm Label
 

Dim x As Integer
Dim OrigColor As Integer
Dim NewColor As Integer
Dim CellToFlash As Range
OrigC = ActiveCell.Interior.ColorIndex
NewColor = 16 ' 1st cell color
OrigColor = 2 ' 2nd cell color
Set CellToFlash = Range("L7") ' Cell range to flash
Do Until x = 5 ' Flash 20 times
DoEvents
start = Timer ' Set timer for 1st flash rate
Delay = start + 0.2 ' Set delay for 1st cell color
Do Until Timer Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.Interior.ColorIndex = NewColor ' Changes cell color to
1st color
Loop
start = Timer ' Set timer for 2nd flash rate
Delay = start + 0.2 ' Set delay for 2nd cell color
Do Until Timer Delay
DoEvents
CellToFlash.Interior.ColorIndex = OrigColor ' Changes cell color to
2nd color
Loop
x = x + 1 ' Loop increment
Loop

The above VB makes cell "L7" flash the way I want it to.
How do I modify the above VB to make Label1 on UserForm1 flash
instead??


--
grahammal
------------------------------------------------------------------------
grahammal's Profile: http://www.excelforum.com/member.php...o&userid=20336
View this thread: http://www.excelforum.com/showthread...hreadid=526709

Flashing UserForm Label
 

Private Sub CommandButton1_Click()
Dim x As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 0) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label1 ' Cell range to flash
Do Until x = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.2 ' Set delay for 1st cell color
Do Until Timer Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.2 ' Set delay for 2nd cell color
Do Until Timer Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
x = x + 1 ' Loop increment
Loop

End Sub

--
Regards,
Tom Ogilvy


"grahammal" wrote:


Dim x As Integer
Dim OrigColor As Integer
Dim NewColor As Integer
Dim CellToFlash As Range
OrigC = ActiveCell.Interior.ColorIndex
NewColor = 16 ' 1st cell color
OrigColor = 2 ' 2nd cell color
Set CellToFlash = Range("L7") ' Cell range to flash
Do Until x = 5 ' Flash 20 times
DoEvents
start = Timer ' Set timer for 1st flash rate
Delay = start + 0.2 ' Set delay for 1st cell color
Do Until Timer Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.Interior.ColorIndex = NewColor ' Changes cell color to
1st color
Loop
start = Timer ' Set timer for 2nd flash rate
Delay = start + 0.2 ' Set delay for 2nd cell color
Do Until Timer Delay
DoEvents
CellToFlash.Interior.ColorIndex = OrigColor ' Changes cell color to
2nd color
Loop
x = x + 1 ' Loop increment
Loop

The above VB makes cell "L7" flash the way I want it to.
How do I modify the above VB to make Label1 on UserForm1 flash
instead??


--
grahammal
------------------------------------------------------------------------
grahammal's Profile: http://www.excelforum.com/member.php...o&userid=20336
View this thread: http://www.excelforum.com/showthread...hreadid=526709