How do I get a label (LoadingMessage) to blink on the Splash Screen until the
UserForm is unloaded?

In the userform


Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Activate()
nTime = Now + TimeValue("00:00:01")
Application.OnTime nTime, "Flash"
End Sub

In a standard code module

Public nTime

Sub Flash()
If UserForm1.Label1.ForeColor = RGB(255, 0, 0) Then
UserForm1.Label1.ForeColor = RGB(0, 255, 0)
Else
UserForm1.Label1.ForeColor = RGB(255, 0, 0)
End If
nTime = Now + TimeValue("00:00:01")
Application.OnTime nTime, "Flash"
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Kro" wrote in message
...
How do I get a label (LoadingMessage) to blink on the Splash Screen until
the
UserForm is unloaded?