Paulo,

Click the link to my website in my signature, go to my links page, then visit John Harvey's site he has a class there that does exactly what you are looking for.

>*** OLE Control Event *** (DblClick of RTFTextBox ActiveX)
>
>if type('thisform.owordDoc')<>'O'
> Thisform.addobject('oWordDoc','olecontrol','word.document')
>endif
>
>With Thisform.oWordDoc
> .DoVerb(0)
> .Object.Content = This.Text
> .CheckSpelling
> .Object.Application.Selection.WholeStory
> This.text = .Object.Application.Selection.Text
> ** .Close(0)
>EndWith
>
>thisform.removeobject("oWordDoc")
>
>***********************************************
>With this code is possible check simple text.
>I need check RTF. I want pass the TEXTRTF property to
>SpellChecker of the Word, that shows o formatted text
>and I want that return in RTF too.
>
>Excuse my english.
>Someone can I help me, please?
>
>Paulo Barros