Ledger Nano X - The secure hardware wallet
SHARE
TWEET

T4720_Blinking TextBox On UserForm

YasserKhalil2019 Mar 29th, 2020 (edited) 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. https://excel-egy.com/forum/t4720
  2. ---------------------------------
  3.  
  4. Private Sub TextBox4_AfterUpdate()
  5.     Static b As Boolean
  6.     Static i As Integer
  7.  
  8.     With TextBox4
  9.         If Not IsDate(.Text) Then Exit Sub
  10.  
  11.         If CDate(.Text) = Date Then
  12.             Do Until i >= 10
  13.                 If b Then .BackColor = vbYellow Else .BackColor = vbGreen
  14.                 Application.Wait Now + TimeValue("00:00:01")
  15.                 b = Not b
  16.                 i = i + 1
  17.                 Debug.Print i
  18.             Loop
  19.    
  20.             b = False: i = 0
  21.         End If
  22.     End With
  23. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top