FoxPro/Visual FoxPro - Rich Text

Hola Compañeros....!!!
Como les va...!!!
Saben tengo un pekeño problema ke espero Uds me ayuden a solucionarlo.
Tengo un Rich Text al cual kiero ir añadiendo texto pero sin ke este pierda su formato anterior.
Cada vez ke hago esto:
Tf.OleRicht.Object.Text = Tf.OleRicht.Object.Text + chr(13) + Tf.Txt.value
***Esta linea me agrega texto al rich text, pero el richtext pierdo el formato anterior y se regresa al formato de inicio(arial, 9, etc)
Estoy buscando otra forma de gregar texto al richtext pero no se como hacerlo
si alguien me puede ayudar porfavoresto ya me esta volviendo loko.

Espero sus respuestas

Pda: Uso Foxpro 6.0

Fijate si esto te sirve:
http://www.davphantom.net/consultar.asp?id=rich-text-rtf-y-vfp-1578/

Gracias por tu respuesta compañero, pero ese formulario ya lo baje y n me sirve de nada.
Espero sigas colaborando conmigo

hola mira este codigo espero te sirva

WITH thisform.olertf

aa = SUBSTR(ALLTRIM(.textrtf),1,LEN(ALLTRIM(.textrtf))-3) + "holaaaa}"
.textRTF = aa
ENDWITH

olertf es el Rich Text,


debes utilizar la propiedad textrtf, y no text,
lo utilizo asi pues el formato que muestra el richtext en esa propiedad termina en llave " } ", y pues lo que este fuera de la llave no lo agrega, por eso substraje todo lo que esta antes de la llave y le agregre el "Hola"

la variable no es necesari ehh jejej, y si quieres agregar otro enter escribe "\par" el numero de enter que necesites eso si antes del texto que vas a incertar y listo

por cierto yo incerte "holaaaa" pero podras poner el valor de un text lo unico que no olvides agregar al final la llave "}" ok

espero te sirva