Sorry, my friend, I put in my file to many passwords and take much time to change them. This password also my many internet accounts password. Please watch my new video and ask me what you need. I can share you a part of the VBA code. th-cam.com/video/0I315y8ZH5Q/w-d-xo.html
Option Explicit #If Win64 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #End If Sub ShowForm() Dim x Dim Txt As String For x = 1 To 200 With Usf_KPI_CongTy Txt = .Label1.Caption .Label1.Caption = Right(.Label1.Caption, Len(.Label1.Caption) - 1) & Left(.Label1.Caption, 1) .Repaint End With If x Mod 2 Then DoEvents Sleep 150 Application.Wait Now End If Next x End Sub
Good Morning Mr.Than
Can you show the Slide Picture on UserForm ?
I hope you can do it
Thanks
Dear Share with me this work book and it's code
please share VBA code
It's good video dear.
Can you share this excel with me.
Sorry, my friend, I put in my file to many passwords and take much time to change them. This password also my many internet accounts password. Please watch my new video and ask me what you need. I can share you a part of the VBA code.
th-cam.com/video/0I315y8ZH5Q/w-d-xo.html
Option Explicit
#If Win64 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Sub ShowForm()
Dim x
Dim Txt As String
For x = 1 To 200
With Usf_KPI_CongTy
Txt = .Label1.Caption
.Label1.Caption = Right(.Label1.Caption, Len(.Label1.Caption) - 1) & Left(.Label1.Caption, 1)
.Repaint
End With
If x Mod 2 Then
DoEvents
Sleep 150
Application.Wait Now
End If
Next x
End Sub
Hey can we make textbox or label blink in userforms?,please help!
Yes just use timer
Set time interval
And make them visible and invisible alternately to make it blink
th-cam.com/video/PTrqfeqkYIA/w-d-xo.html
In this video you can see a blinking label showing current system time.
At 1:33
It will help you