08-01-2022, 04:11 PM
|
Novice
|
|
Join Date: Mar 2020
Posts: 5
|
|
My apologies.
I though it was simple.
Here is the code I wrote
Quote:
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
|
|