Programalama > VISUAL BASIC

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 500
Timer2.Enabled = True
Timer2.Interval = 1000
Timer3.Enabled = True
Timer3.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static x As Long
x = x + 100
Shape1.FillColor = QBColor(Rnd * 15)
Shape1.Width = x
Shape1.Height = x
End Sub

Private Sub Timer2_Timer()
Shape2.FillColor = QBColor(Rnd * 15)
Shape2.Width = (3000)
Shape2.Height = (4000)
Shape2.Left = (10000)
Shape2.Top = (3000)
End Sub

Private Sub Timer3_Timer()
Shape3.FillColor = QBColor(Rnd * 15)
Shape3.Width = (Rnd * 7000)
Shape3.Height = (Rnd * 7000)
Shape3.Left = (Rnd * 7000)
Shape3.Top = (Rnd * 7000)
End Sub