Draw 5 Shape and 1 Timer controller
Time1_Timer property window --Interval =200
Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 10
Shape2.Left = Shape2.Left + 30
Shape3.Top = Shape3.Top + 10
Shape4.Top = Shape4.Top - 15
Shape5.Left = Shape5.Left - 8
End Sub
No comments:
Post a Comment