I got a sample code from Martina Jindrová to do the running text.

I created a crunningtext.prg with:

DEFINE CLASS _tmrRT AS Timer
  Name='_tmrRT'
  Enabled=.F.
  Interval=250
  cText="Thank you for shopping at my store" 
  nIndex=1
  
  PROCEDURE Timer
    @ 1,1  SAY PADR(SUBSTR(This.cText,This.nIndex,50),100)
    This.nIndex=This.nIndex+1
    IF This.nIndex=LEN(This.cText)
       This.nIndex=1
    ENDIF
  ENDPROC 
ENDDEFINE

in the startup.prg, I added:

SET PROCEDURE TO crunningtext ADDITIVE 

in the form.init, I added:

lotmr=CREATEOBJECT("_tmrRT")
lotmr.Enabled=.T.
READ EVENTS

but no respond, what am I missing?

Thanks for the help

Jerry