Olá amigo, tente fazer isso: insira um Timer no seu projeto e modifique o código abaixo, colocando o nome da sua label.
Private Sub Timer1_Timer()
If LblAviso.ForeColor = RGB(0, 0, 0) Then
LblAviso.ForeColor = RGB(255, 0, 0)
Else
LblAviso.ForeColor = RGB(0, 0, 0)
End If
End Sub
Obs.: sua Label deve estar com a propriedade ForeColor da cor preta para que a rotina funcione.
Tentei...