>Cetin
>
>I have put a timer control on the form. Could you give me an example of how you fire it up and the code you would use - I have never used a timer at all
>
>Thanks for your help
>
>
>Colin

release oExcel
oTimer = CreateObject('myTimer')
*read events

Define Class myTimer As Timer
Interval = 1000
cFile = ''

Procedure init
Lparameters tcFile
this.cFile = tcFile
endproc

Procedure Timer
local lnHandle
lnHandle = fopen(this.cFile,12) && Try to open RW
if lnHandle > 0
this.Enabled = .F. && Stop timer
fclose(lnHandle)
*clear events
*File is free now
endif
Endproc
Enddefine
Cetin