* form::Init() This.AddObject("tmrRefresh","_tmrRefresh") * form::Activate() This.tmrRefresh.Enabled=.T. * form::Deactivate() This.tmrRefresh.Enabled=.F. * form::Destroy() This.tmrRefresh.Enabled=.F. **************************************** DEFINE CLASS _tmrRefresh As Timer Name="_tmrRefresh" Enabled=.F. Interval=10*60*1000 && 10 minutes PROCEDURE Timer() Thisform.Refresh() ENDPROC ENDDEFINEMartinJ