Drawing an oval and making it smaller with code
Posted on 2005-03-31
I want to create a falling down (or up) tunnel effect.
I want to have a form with about 20 ovals on it .
The first oval starting from the size of a dot, with each of the other ovels getting bigger with the last ovel filling the screen.
I then want some code under a command button that will make the ovals get smaller until they are just a dot at the center of the form. I also need create new outer ovals to take the place of each oval that disapears creating a continous falling effect.
I have provided some code that will demonstrate the type of effect I'm after using a shape control
Place two oval shape controls on a form one bigger than the other and put the following code under a command botton
Private Sub Command1_Click()
For x = 1 To 6000
Shape1.Height = Shape1.Height - 1
Shape1.Width = Shape1.Width - 1
Shape2.Height = Shape2.Height - 1
Shape2.Width = Shape2.Width - 1