>I can merge two rtf as below ( i take it from a VB code )
>
>

>    THISFORM.oleRTF.SelStart = 0
>    THISFORM.oleRTF.SelLength = Len(THISFORM.oleRTF.Text)
>
>    THISFORM.oleRTF1.SelStart = 0
>    THISFORM.oleRTF1.SelLength = Len(THISFORM.oleRTF1.Text)
>
>    THISFORM.oleRTF2.SelStart = 0
>    THISFORM.oleRTF2.SelLength = Len(THISFORM.oleRTF2.Text)
>    THISFORM.oleRTF2.SelRTF = THISFORM.oleRTF.SelRTF
>    THISFORM.oleRTF2.SelStart = Len(THISFORM.oleRTF2.Text)
>    THISFORM.oleRTF2.SelLength = 0
>    THISFORM.oleRTF2.SelText = CHR(10)
>    THISFORM.oleRTF2.SelStart = Len(THISFORM.oleRTF2.Text)
>    THISFORM.oleRTF2.SelLength = 0
>    THISFORM.oleRTF2.SelRTF = THISFORM.oleRTF1.SelRTF
>
>    THISFORM.oleRTF.SelStart = 0
>    THISFORM.oleRTF.SelLength = 0
>    THISFORM.oleRTF1.SelStart = 0
>    THISFORM.oleRTF1.SelLength = 0
>

>
>Now i want to know how i can do this programmaticaly ?
>Can you help me?

Add two reach text controls in a form. Let oleRTF2 is invisible. Then:

thisform.oleRTF1.TextRTF = FILETOSTR([SomeRTFFile1.RTF])+CHR(10)
THISFORM.oleRTF1.SelStart = Len(THISFORM.oleRTF2.Text)
THISFORM.oleRTF1.SelLength = 0

thisform.oleRTF2.TextRTF = FILETOSTR([SomeRTFFile2.RTF])

THISFORM.oleRTF2.SelStart = 0
THISFORM.oleRTF2.SelLength = Len(THISFORM.oleRTF2.Text)

THISFORM.oleRTF1.SelRTF = THISFORM.oleRTF2.SelRTF+CHR(10)
THISFORM.oleRTF1.SelStart = Len(THISFORM.oleRTF2.Text)
THISFORM.oleRTF1.SelLength = 0

thisform.oleRTF2.TextRTF = FILETOSTR([SomeRTFFile3.RTF])

THISFORM.oleRTF2.SelStart = 0
THISFORM.oleRTF2.SelLength = Len(THISFORM.oleRTF2.Text)

THISFORM.oleRTF1.SelRTF = THISFORM.oleRTF2.SelRTF

NOT TESTED AT ALL