Notes:
create a form and place a box on it with design tools and name it bar1
place this code in the on open event for the form
set the timer interval property to 5 or so depending on how fast you want the bar to flash.

cut and paste the following into the on_open event for the form you created.

Private Sub Form_Timer()
'Notes:
'create a form and place a box on it with design tools and name it bar1
'place this code in the on open event for the form
'set the timer interval property to 5 or so depending on how fast you want the bar to flash.

With Me.bar1
.BackColor = (IIf(.BackColor = 14126637, 14322217, _
IIf(.BackColor = 14322217, 14379816, _
IIf(.BackColor = 14379816, 14113581, _
IIf(.BackColor = 14113581, 14232375, _
IIf(.BackColor = 14232375, 14362723, _
IIf(.BackColor = 14362723, 14493332, _
IIf(.BackColor = 14493332, 14689196, _
IIf(.BackColor = 14689196, 14427104, _
IIf(.BackColor = 14427104, 4756223, 14126637))))))))))
End With

End Sub