For i = 0 To RichTextBox1.Lines.Count - 1 Step 1
With RichTextBox2
.Text = .Text & RichTextBox1.Lines(i) & vbCrLf
End With
Next


umarım ihtiyacı olan arkadaşlarında işini görür