The Shape Controls going up like balloons!

by Mili (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 15^th July 2005
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
'Put four Shape controls on form.Set its Shape property to 3-Circle. 'Also set its FillStyle property to 0-Solid. 'Then put one timer control.Set its Interval property to 50

Rate The Shape Controls going up like balloons!



Shape1.FillColor = RGB(0, 0, 255)
Shape2.FillColor = RGB(255, 0, 0)
Shape3.FillColor = RGB(0, 255, 0)
Shape4.FillColor = RGB(200, 10, 190)
Randomize
End Sub

Private Sub Timer1_Timer()
Shape1.Move Shape1.Left + ScaleWidth * (Rnd - 0.5) / 50, Shape1.Top + ScaleHeight * (Rnd - 0.9) / 100

Shape2.Move Shape2.Left + ScaleWidth * (Rnd - 0.5) / 50, Shape2.Top + ScaleHeight * (Rnd - 0.9) / 100

Shape3.Move Shape3.Left + ScaleWidth * (Rnd - 0.5) / 50, Shape3.Top + ScaleHeight * (Rnd - 0.9) / 100

Shape4.Move Shape4.Left + ScaleWidth * (Rnd - 0.5) / 50, Shape4.Top + ScaleHeight * (Rnd - 0.9) / 100

End Sub

Download this snippet Add to My Saved Code

The Shape Controls going up like balloons! Comments

No comments have been posted about The Shape Controls going up like balloons!. Why not be the first to post a comment about The Shape Controls going up like balloons!.

The Shape Controls going up like balloons!

The Shape Controls going up like balloons! Comments

Post your comment

Difficulty