LOCAL bb, worked, isa WITH THISFORM worked = .T. cErrHandler = ON('ERROR') ON ERROR worked = .F. *!* SET EXCLUSIVE ON *!* ^^^^^^^^^^^^^^^^ <b>*!* You don't need the above line.</b> <b> SET STEP ON</b> USE xtable EXCLUSIVE isa = ISEXCLUSIVE("xtable",1) cMessageTitle = 'My Application' nDialogType = 0 DO CASE CASE isa = .T. cMessageText = 'locked' WAIT WINDOW ALLTRIM(cMessageText) TIMEOUT 0.5 CASE isa = .F. cMessageText = 'no lock' WAIT WINDOW ALLTRIM(cMessageText) TIMEOUT 0.5 ENDCASE ON ERROR &cErrHandler IF worked bb = '(((((( FILE EXCLUSIVE ))))))' WAIT WINDOW ALLTRIM(bb) TIMEOUT 0.9 .T1.ENABLED = .T. && start timer1 ELSE bb = 'oooooo File Not Free ooooooo' WAIT WINDOW ALLTRIM(bb) TIMEOUT 0.9 ENDIF IF .t2sw = .F. .T2.INTERVAL = 25000 && set new timer interval .t2sw = .T. ENDIF ENDWITH