FoxPro/Visual FoxPro - Marquesina en StatusBar

Hola buenas tardes... deseo me ayudaran con lo siguiente...
Estoy tratando de que aparezcan los mensajes en la barra de estado de la siguiente manera...

en el evento MouseMove del boton de un formulario pongo lo siguiente...

Set Message To
Set Message To [Este es un mensaje que deseo poner como marquesina]

y deseo que vaya apareciendo saliendo todo el mensaje como marquesina de izquierda a derecha en la barra de estado... y no logro comprender como hacerlo... yo estoy tratando de hacerlo asi... pero no me sale...

LOCAL msg
msg='Este Es un Mensaje que debera presentarse como marquesina'
cl=LEN(msg)
FOR x=1 TO cl
SET MESSAGE TO [RIGHT(&msg.),cl]
endfor

Alguien me Podría ayudar..??
Gracias...

Puedes probar esto:
msg='Este Es un Mensaje que debera presentarse como marquesina'
cl = LEN(msg)
FOR x=1 TO cl
SET MESSAGE TO RIGHT(msg,x)
WAIT WIND '' TIME .5
ENDFOR
Suerte
PD. Ya lo probe!!!!!!