FIT 100
© Copyright University of
Washington 1999-2000
Animation
vYou can do simple animations using the timer
control. On each call to
the Timer procedure, erase the form and draw the new figure.
Private Sub Timer1_Timer()
Cls
Circle (x, y), 200, vbBlue
x = x + 20 * direction
y = y + 10 * direction
If x < 100 Or x > 3000 Then
direction = 0 - direction
End If
End Sub