[Rabeea Qbaha]

كود :

       If RichTextBox1.Text = "" Then
           RichTextBox1.Text = TextBox1.Text
       Else
           RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox1.Text
       End If
       TextBox1.Clear()