Timer Object to control Animation speed

[jjr459]

Great ones,

How is it possible to use the "Timer" object (looks like a stopwatch) to control the movement (velocity) of picture boxes across a form?

I don't want to use the often used code below because it burns up all CPU capacity while in the loop. Using such code the CPU is always at 100% when the picture boxes are animating across the form.

Sub Pause (Time as Single)
Dim Start as Single
Start = Timer
Do While Timer < Start + Time
Loop
End Sub

Does use of the "Timer" object cause CPU usage to go to 100%?

Thank you

[plenderj]

Dont worry about CPU usage unless you're using really complicated loops. I would use Do...Loop with a bit of GetTickCount() thrown in.

[Sastraxi]

Add a DoEvents in there... It lets Windows execute while you are in the loop.

[plenderj]

A pinch of Do, a smidgen of Loop, a portion of GetTickCount() and throw in a DoEvents for good measure