Textbox to blink once between backcolour and text

[JustLearnin]

Is there a way for a textbox or label caption to blink between text and backcolour?

[Logit]

excel - Flashing/ blinking a textbox with one command button - Stack Overflow

Option Explicit
Public dteStartTime As Date

Sub start_time()
Application.OnTime Now + TimeValue("00:00:01"), "next_moment"
End Sub

Sub end_time()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "next_moment", , False
On Error GoTo 0
End Sub

Sub next_moment()
If Worksheets("Sheet1").Cells(1, 1).Interior.ColorIndex = 6 Then
Worksheets("Sheet1").Cells(1, 1).Interior.ColorIndex = 0
Else
Worksheets("Sheet1").Cells(1, 1).Interior.ColorIndex = 6
End If
If dteStartTime + TimeValue("00:00:10") <= Now Then
  end_time
Else
  start_time
End If

End Sub

Sub CommandButton1_Click()
dteStartTime = Now
Call start_time
End Sub

[JustLearnin]

Thanks Logit.
This code is for an excel spreadsheet.
I was looking for code which is compatible with ms word?
Thanks

[macropod]

Originally Posted by JustLearnin

This code is for an excel spreadsheet.
I was looking for code which is compatible with ms word?

Much of the code is the same for Word and Excel but, since you haven't provided any details about what kind of textbox you're referring to (people call all sorts of things in Word textboxes) or how it is to be identified, it's impossible to code a solution for your specific situation. Obviously, too, whatever the textbox is, it's liable to require different code from that used for a caption. You also haven't told us anything about when this flashing is supposed to occur.

[JustLearnin]

My apologies.
I though it was simple.
Here is the code I wrote

Private Sub TextBox1_Change()
If Me.TextBox1 > "" Then
Change
End If
End Sub

Sub Change()
Dim i As Long

For i = 1 To 2
Application.OnTime when:=Now() + TimeValue("0:00:1")
TextBox2.BackColor = vbRed
Application.OnTime when:=Now() + TimeValue("0:00:1")
TextBox2.BackColor = vbGreen


Next i


End Sub