• Home
 · 
• Graphics
 · 
• Moving the ShapeControl with Fun

Moving the ShapeControl with Fun

Moving the ShapeControl with Fun

API Declarations


' One TimerCOntrol With Interval = 100



Rate Moving the ShapeControl with Fun

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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