• Home
 · 
• Custom Controls/Forms/Menus
 · 
• The Shape Controls going up like balloons!

The Shape Controls going up like balloons!

The Shape Controls going up like balloons!

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!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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