maybe something like this...
Option Explicit
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Private Const gray As Long = &H8000000F
Private Const Red As Long = &HFF&
Private Sub UserForm_Activate()
Dim lngTime As Long
Dim i As Integer
For i = 1 To 10
lngTime = GetTickCount
If Me.Label1.BackColor = gray Then
Me.Label1.BackColor = Red
Else
Me.Label1.BackColor = gray
End If
DoEvents
Do While GetTickCount - lngTime < 200
Loop
Next
End Sub
or....
Private Sub UserForm_Activate()
Label13_Click 'your label
End Sub
Bookmarks