Boa noite

Veja se consegue adaptar:

Option Explicit
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Private Const Preto As Long = &H80000012
Private Const Vermelho As Long = &HFF&
Private Sub CommandButton1_Click()
Dim lngTime As Long
Dim i As Integer
For i = 1 To 20 'Numero de vezes que o label vai piscar
lngTime = GetTickCount
If Me.Label1.ForeColor = Preto Then
Me.Label1.ForeColor = Vermelho
Else
Me.Label1.ForeColor = Preto
End If
DoEvents
Do While GetTickCount - lngTime < 200 'Tempo de espera para proximo loop de 2 segundos
Loop
Next
End Sub

At.te

Boa nOite!

Obrigado pela ajuda!

Declarei o código no Módulo e deu o seguinte erro:
Erro de Compilação

"O código desse projeto deve ser atualizado para uso em sistemas 64 bits. Analise e atualize as instruções Declare e, em seguida, marque-as com atributo PtrSafe".

at

Laerte

Boa nOite!

Declarei o código no Módulo e deu o seguinte erro:
Erro de Compilação

"O código desse projeto deve ser atualizado para uso em sistemas 64 bits. Analise e atualize as instruções Declare e, em seguida, marque-as com atributo PtrSafe".

at Laerte

Não tenho a V 64 bits para testar, então de uma olhada nos links abaixo se ajudam:
De 32 bits para 64bits
viewtopic.php?t=8770&p=46263

Erro no Modulo Public
viewtopic.php?f=10&t=7054

[]s