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?