Hi Nick,

this is a solution for the problem,
but put it into a application is not simple.

oSleep=CREATEOBJECT("mySleep")

t1=SECONDS()
FOR k=1 TO 10000
	oSleep.Interval = 1 && 1 ms wait
	READ EVENTS
NEXT
? SECONDS()-t1


DEFINE CLASS mySleep AS Timer

	PROCEDURE Timer
		this.interval = 0
		CLEAR EVENTS
	ENDPROC

ENDDEFINE