dim jumps as integerfor jumps = 1 to 6 image1.visble=trueimage2.visble=true image3.visble=trueimage4.visble=trueimage5.visble=trueimage6.visble=true next jump End Sub
www.youtube.com/watch?v=gw6iV3qaXWM
Private Sub Form_Load()Dim jumps As IntegerFor jumps = 1 To 2Mario.Visible = TrueLuigi.Visible = TrueNextEnd Sub Private Sub Timer1_Timer()Timer1.Enabled = TrueEnd Sub
Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = TrueEnd Sub Private Sub Timer1_Timer() if mario1.visible = true mario1.visible = false luigi1.visible = true else mario1.visible = true luigi1.visible = false end ifEnd Sub