Ya me fije que hay un "error" o mejor dicho el codigo esta incompleto, aqui esta el codigo para mejorarlo:
PUBLIC nMovimientos
IF nMovimientos==LEN(ALLTRIM(THISFORM.label1.CAPTION))*3
nMovimientos=0
pasadoUnaVez=.T.
ELSE
IF pasadoUnaVez
nCaracteres=nCaracteres+1
THISFORM.label1.CAPTION=RIGHTC(labelCaption,nCaracteres)
IF LEN(ALLTRIM(THISFORM.label1.CAPTION))==LEN(labelCaption)
pasadoUnaVez=.F.
nCaracteres=0
ENDIF
ELSE
nMovimientos=nMovimientos+1
THISFORM.label1.CAPTION=SPACE(1)+THISFORM.label1.CAPTION
ENDIF
ENDIF
en el init de la forma pon esto:
public LabelCaption, pasadoUnaVez, nCaracteres
nCaracteres=0
pasadoUnaVez=.F.
labelCaption=thisform.label1.caption
Todo esto podria ser mejorado usando clases...