Rich TextBox

[Undotgiven]

i want to do something like this

Private Sub Command1_Click()

RichTextBox1.TextRTF = RichTextBox1.TextRTF & vbcrlf & RichTextBox2.TextRTF

End Sub

but it doesnt work, any idea?

[crptcblade]

What doesn't work about it? What does it do?

[Undotgiven]

it just dont do nothing, i thing its a problem with the syntaxis

[crptcblade]

Try this...

Private Sub Command1_Click()
    
    With RichTextBox1
        .SelStart = Len(.Text)
        .SelText = vbCrLf
        .SelStart = Len(.Text)
        .SelRTF = RichTextBox2.TextRTF
    End With
 
End Sub