
Make the Ants March
To implement a quick and easy version of the old “marching ants” line around a control, place two CommandButtons, a Shape, and a Timer control on a form. Then insert this code into the form: Private Sub Command1_Click() StartMarchingAntsEnd SubPrivate Sub Command2_Click() StopMarchingAntsEnd SubPrivate Sub StartMarchingAnts() Timer1.Interval = 200 Timer1.Enabled