💡 Source Code
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms&)
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer, n As Integer
n = 0
Do
For i = -1 To 363
DoEvents
CommandButton1.Top = i
Sleep 10
Next i
n = n + 1
Label1.Caption = "Attempt: " & n
If n = 2 Then
MsgBox "The process is completed"
Unload Me
End If
Loop While n ◀= 2
End Sub
------------------------------------------------------------------------------------------
Buy a Cofee ☕ for theworldofalgorithms: https://ko-fi.com/theworldofalgorithms
🥰Thank you for the donation. I am deeply grateful for your help!🥰
------------------------------------------------------------------------------------------
#excel
#msexcel
#msexceltutorial
#msexcelcourse
#vba
#vbatutorial
#excelvba
#excelvbatutorial
#microsoftexceltutorial
#tutorial
#exceltutorial
#excelvbatutorial
#vbatutorial
#button
#excelbutton
#excelvbabutton
#vbabutton
#vbacommandbutton
#commandbutton
#userform
#userformdoubleclickevent
#doubleclickevent
#buttonmove
#changebuttonposition
#floatingbutton
Download
0 formats
No download links available.
Excel VBA - Floating Button|Floating a Button Using Userform Double Click Event | NatokHD