oForm = createobject('clsForm') oForm.Show oTimer = createobject('clsTimer') read events define class clsForm as Form caption = 'Timer/Century test' width = 200 height = 72 add object txtTest as textbox with ; top = 24, height = 24, left = 24, width = 152 procedure destroy clear events endproc enddefine define class clsSession as Session procedure init * set century on && uncomment to see problem endproc enddefine define class clsTimer as Timer interval = 5000 procedure timer interval = 0 wait window nowait 'Timer event' oSession = createobject('clsSession') oSession = null release oSession endproc enddefine