oform = createobject("form1") oform.Show() READ EVENTS RELEASE oform DEFINE CLASS form1 AS form HEIGHT = 81 WIDTH = 249 DOCREATE = .T. AUTOCENTER = .T. onmess = "Working" offmess = "Gone fishing" NAME = "Form1" CAPTION = "Making Busy Work" ADD OBJECT timer1 AS TIMER WITH ; TOP = 20, ; LEFT = 20, ; HEIGHT = 23, ; WIDTH = 23, ; INTERVAL = 1000, ; NAME = "Timer1" ADD OBJECT text1 AS TEXTBOX WITH ; HEIGHT = 23, ; LEFT = 38, ; TOP = 25, ; WIDTH = 180, ; NAME = "Text1" PROCEDURE timer1.TIMER WITH THISFORM IF .text1.VALUE = .offmess .text1.VALUE = .onmess KEYBOARD "{HOME}" ELSE .text1.VALUE = .offmess KEYBOARD "{END}" ENDIF ENDWITH ENDPROC PROCEDURE DESTROY CLEAR EVENTS ENDPROC ENDDEFINEmay provide enough activity for you. Set the interval to what ever you might desire.