Tutorial : Basic Animation With VBA Excel

Hi...
Meet me again ;)

Now I want show for you a tutorial how make basic animation with VBA Excel and I hope this can help you to expansion animation on VBA Excel.

1. Insert a shape "Isosceles Triangle 1" and Rotate to right
   
2. Change a format theme color with your want and change name shape to "Play"
   
   
   3.Insert a object image
   
   4.Set background object to transparent color
   
   5.Move image object to left and make a horizontal line for base and a vertical regtangle for wall
   
   6.Change name of shape object image to "Bola"
   
   7.Insert a regtangle box change name to "Stop"
   
   8.Right click shape "Play" and select Assign Macro and click New
   
   9.Then enter the following code :

Sub Play_Click()
x = 0
Do
DoEvents
x = x + 2
Sheet1.Shapes("Bola").Left = x
Sheet1.Shapes("Bola").Rotation = x
Loop Until x = 522 Or s

Do
DoEvents
x = x - 0.5
Sheet1.Shapes("Bola").Left = x
Sheet1.Shapes("Bola").Rotation = x
Loop Until x = 500
End Sub

Sub Stop_Click()
s = 0
End
End Sub

Animation Finish and click shape "Play" to Run

END

Ok, thank you for visit @khaidir22 please vote me and see you.
;)