T4720_Blinking TextBox On UserForm

https://excel-egy.com/forum/t4720
---------------------------------

Private Sub TextBox4_AfterUpdate()
    Static b As Boolean
    Static i As Integer

    With TextBox4
        If Not IsDate(.Text) Then Exit Sub

        If CDate(.Text) = Date Then
            Do Until i >= 10
                If b Then .BackColor = vbYellow Else .BackColor = vbGreen
                Application.Wait Now + TimeValue("00:00:01")
                b = Not b
                i = i + 1
                Debug.Print i
            Loop

            b = False: i = 0
        End If
    End With
End Sub