>FOR lnCompteur=1 TO 100
> Send('Something')
> llReady=.F.
> * We assume the Receive() event will make llReady=.T.
> DO WHILE llReady
> DOEVENTS
> ENDDO
>NEXT

Now seriously: :)

Try this:

FOR lnCompteur=1 TO 100
Send('Something')
Timer.Enabled=.t.
llReady=.F.
* We assume the Receive() event will make llReady=.T.
DO WHILE NOT llReady
DOEVENTS
ENDDO
NEXT

and disable the timer as first action in Timer event of your timer.

This one SHOULD work. Unless is not working... :)

Vlad