Here is a small follow up from Samuel which I recieved via Email.

--- snip
Glad to hear you could perform your test. If you want to go a little further you could achieve near native code speed if you use strong typing for m.lncount.

Here would be the snippet:

? "Please wait..."
?

TLOCAL lnCount as Integer
FOR i = 1 TO 5
	Local lnStart
	lnStart = Seconds()
	lnCount = 0
	Do While m.lnCount < 5000000
		m.lnCount = m.lnCount + 1
	EndDo
	? i, Seconds()-lnstart, "sec. for 5,000,000 iteration"
ENDFOR
? "Ready"

In our test machine it gives:

Please wait...
{0}
 1 0.0625 sec. for 5,000,000 iteration
 2 0.015625 sec. for 5,000,000 iteration
 3 0.015625 sec. for 5,000,000 iteration
 4 0.015625 sec. for 5,000,000 iteration
 5 0.015625 sec. for 5,000,000 iteration Ready

That´s speed.
Christoph