>_screen.TitleBar = 0 >SET SYSMENU OFF >SET SYSMENU TO >_screen.WindowState = 2 >oTimer = CREATEOBJECT([MyTimer]) >oTimer.Enabled = .t. >READ EVENTS >_screen.TitleBar = 1 >SET SYSMENU TO DEFAULT > > > >DEFINE CLASS MyTimer AS Timer > Interval = 3000 > Enabled = .f. > > > PROCEDURE Timer > CLEAR EVENTS > ENDPROC >ENDDEFINE >>