OK, Arun,

I forgot...

******************************
* main code
******************************
SET PROCEDURE xtimer.prg ADDTIVE
DO FORM anyform
RELEASE PROCEDURE xtimer.prg



******************************
* anyform methods
******************************
* anyform::Init()
This.AddObject("tmrRefresh","_tmrRefresh")


* anyform::Activate()
This.tmrRefresh.Enabled=.T.

* anyform::Deactivate()
This.tmrRefresh.Enabled=.F.

* anyform::Destroy()
This.tmrRefresh.Enabled=.F.


**************************************************
* xtimer.prg which is in the same folder as form *
**************************************************
DEFINE CLASS _tmrRefresh As Timer
   Name="_tmrRefresh"
   Enabled=.F.
   Interval=10*60*1000 && 10 minutes


   PROCEDURE Timer()
      Thisform.Refresh()
   ENDPROC

ENDDEFINE

>Hi Martin Jindra
>
>i try to use the code which you suggested, but there is some error
>
>"Methods and events cannot contain
>nested procedures or class definitions"
>
>i put the ;
>
>DEFINE CLASS _tmrRefresh As Timer
>....
>...
>....
>ENDDEFINE
>
>Pl. correct me.
>Arun, India