>_screen.WindowState = 0 >_screen.TitleBar = 1 >>
>>_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 >>>>