Create an Amazing Effect Using Userform and Image MouseMove Event in Excel Using Macro

Описание: 💡 Source Code

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms&)
Dim b As Boolean

Sub image_lab(ByVal ind As Byte)
Dim i As Byte
b = -1
Controls("Label" & ind).Visible = -1

For i = 0 To 150 Step 10
Controls("Label" & ind).Width = i
DoEvents
Sleep 1
Next i

End Sub

Sub convis()
Dim contr As Control

For Each contr In Me.Controls
If TypeOf contr Is MSForms.Label Then
contr.Visible = 0
contr.Width = 0
End If
Next contr

End Sub

Private Sub UserForm_Activate()
Call convis
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
b = 0
Call convis
End Sub

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If b = 0 Then Call image_lab(1)
End Sub

Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If b = 0 Then Call image_lab(2)
End Sub

Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If b = 0 Then Call image_lab(3)
End Sub

Private Sub Image4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If b = 0 Then Call image_lab(4)
End Sub

Private Sub Image5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If b = 0 Then Call image_lab(5)
End Sub

Private Sub Image6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If b = 0 Then Call image_lab(6)
End Sub

Private Sub Image7_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If b = 0 Then Call image_lab(7)
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
#fulltutorial
#excelvbatutorial
#microsoftexceltutorial
#tutorial
#exceltutorial
#advancedexcel
#advancedexceltraining
#tutor
#exceltutor
#exceltutoring
#exceltutoringonline
#onlineexceltutoring
#algorithm
#algorithms
#programming
#program
#script
#vbamacro
#vbamacros
#usingmacro
#veryuseful
#useful
#veryusefulmacro
#freeeducation
#freeprogramming
#freelancer
#excelfreelancer
#vbafreelancer
#freelanceservices
#vbauserform
#excelvbauserform
#mousemove
#mousemoveevent
#vbauserformevent
#vbaimageevent
#animatedbuttons
#resizablebuttons
#vbaanimtedeffects