Moving the ShapeControl with Fun

by Rahulkc (2 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 31^st May 2001
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
' One TimerCOntrol With Interval = 100

Rate Moving the ShapeControl with Fun



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 the ShapeControl with Fun Comments

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

Moving the ShapeControl with Fun

Moving the ShapeControl with Fun Comments

Post your comment

Difficulty