Description : Very small animation program using timer control
Private Sub Timer1_Timer()
If (Image1.Left < 4800) And _
(Image1.Top > 500) Then
Image1.Left = Image1.Left + 200
Image1.Top = Image1.Top - 100
Else
Image1.Left = 0 ' Restore image's first
Image1.Top = 3820 ' position.
End If
End Sub
