Hi,

>>

DO WHILE (NOT RLOCK()) AND (INKEY(0.1)=0) AND lnCompteur<=25
   lnCompteur=lnCompteur+1
ENDDO
REPLACE NUMERO WITH NUMERO+1
UNLOCK

<<

But what if you don't get the lock in 2.5 secs (or maybe less without CLEAR TYPEAHEAD) ? Why not just:

SET REPROCESS TO 3 SECONDS
IF RLOCK() 
  REPLACE NUMERO WITH NUMERO+1
  UNLOCK
  lnNextNumber = NUMERO
ELSE
  lnNextNumber = 0 && Error Condition
ENDIF
* Tidy up
RETURN lnNextNumber

Regards,
Viv