Animation
	v You 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