Escriba un fragmento de código en el formulario vfp para hacer que un fragmento de texto se mueva hacia la izquierda y hacia la derecha repetidamente

.left=.left+1

if?.left<=thisform.Width?'Dentro de la longitud del formulario, la dirección cambia de izquierda a derecha

.left=thisform.Width

fx=0?

ENDIF?

else

'De derecha a izquierda, La dirección inversa es todo + cambios +

.left=.left-1

si?.left<=0?' es menor que 0, ¿restaurar de izquierda a derecha?

fx=1?

ENDIF?

¿Fin?if

¿Fin?