Moving Circles

by Varun Godbole (15 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 22^nd April 2007
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Moving Circles

API Declarations
1 Timer, 4 Circles needed

Rate Moving Circles



    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

Download this snippet Add to My Saved Code

Moving Circles Comments

No comments have been posted about Moving Circles. Why not be the first to post a comment about Moving Circles.

Moving Circles

Moving Circles Comments

Post your comment

Difficulty