Moving Circle


No Declarations
1 Timer, 4 Circles needed
————————–

Private Sub Form_Load()
    Randomize
End Sub

Private Sub Timer1_Timer()
    Shape1.Move Shape1.Left + ScaleWidth * (Rnd – 0.5) / 50, Shape1.Top + ScaleHeight * (Rnd – 0.5) / 50
    Shape2.Move Shape2.Left + ScaleWidth * (Rnd – 0.5) / 50, Shape2.Top + ScaleHeight * (Rnd – 0.5) / 50
    Shape3.Move Shape3.Left + ScaleWidth * (Rnd – 0.5) / 50, Shape3.Top + ScaleHeight * (Rnd – 0.5) / 50
    Shape4.Move Shape4.Left + ScaleWidth * (Rnd – 0.5) / 50, Shape4.Top + ScaleHeight * (Rnd – 0.5) / 50
End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s