Rich TextBox

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?

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

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

Try this...

VB Code:

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