[kiki]

وعليكم السلام ورحمة الله وبركاته
تفضل استخدم هذا الـ Sub

كود :

   Sub Line(Rtb As RichTextBox, Text As String, alignment As HorizontalAlignment)
       Dim Index, start, length As Integer
       Index = Rtb.Lines.Length
       Rtb.AppendText(IIf(Rtb.TextLength > 0, vbNewLine, Nothing) + Text)
       start = Rtb.GetFirstCharIndexFromLine(Index)
       length = Rtb.Text.Length
       Rtb.Select(start, length - Index)
       Rtb.SelectionAlignment = alignment
       Rtb.DeselectAll()
   End Sub

وتعال عند حدث التنفيذ لكل من textbox الاول او الثاني واستخدم الامر بهذا الشكل

كود :

Line(RichTextBox1, TextBox1.Text, HorizontalAlignment.Left)

كود :

Line(RichTextBox1, TextBox2.Text, HorizontalAlignment.Right)