PUBLIC oTimer oTimer = CreateObj ("Mytimer") *... * ------------------------------------------- Define Class Mytimer as Timer Name = "Mytimer" Procedure Timer This.Enabled = .F. * Your processing here This.Enabled = .T. EndProc Procedure Init This.Interval = 60 * 1000 && 60 seconds This.Enabled = .T. EndProc EndDefineOr you can do this in the Class Designer
CREATE CLASS mytimer of myclasslib as timer *... oTimer = Newobject ("Mytimer", "myclasslib")