Animasi Sederhana pk timer di VB6

'setting di properties form_load()
'form1.width=6210
'form1.height=5010
'bikin dulu timer 4 buah setting masing2 interval = 500 dan enabled = false
'baten 1 buah

Private Sub Command1_Click()
If Command1.Caption = "&play" Then
Command1.Caption = "&stop"
Timer1.Enabled = True
Else
If Command1.Caption = "&stop" Then
Command1.Caption = "&play"
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
'Text3.Text = ""
Shape1.Left = 0
Shape1.Top = 0
End If
End If
Text1.Text = Shape1.Left
Text2.Text = Shape1.Top
End Sub

Private Sub Command2_Click()
End Sub

Private Sub Form_Activate()
Text1.Text = Shape1.Left
Text2.Text = Shape1.Top
End Sub

Private Sub Form_Load()
Timer1.Interval = 500
Timer2.Interval = 500
Timer3.Interval = 500
Timer4.Interval = 500
End Sub

Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 1000
If Shape1.Left = 5000 Then
'Shape1.Left = 5000
Timer1.Enabled = False
Timer2.Enabled = True
End If
Text1.Text = Shape1.Left
End Sub

Private Sub Timer2_Timer()
Shape1.Top = Shape1.Top + 1000
If Shape1.Top = 4000 Then
Timer2.Enabled = False
Timer3.Enabled = True
End If
Text2.Text = Shape1.Top
End Sub

Private Sub Timer3_Timer()
Shape1.Left = Shape1.Left - 1000
If Shape1.Left = 0 Then
Timer3.Enabled = False
Timer4.Enabled = True
End If
Text1.Text = Shape1.Left
End Sub

Private Sub Timer4_Timer()
Shape1.Top = Shape1.Top - 1000
If Shape1.Top = 0 Then
Timer4.Enabled = False
Timer1.Enabled = True
End If
Text2.Text = Shape1.Top
End Sub