[khaled12345]

(26-11-17, 12:21 AM)Rabeea Qbaha كتب :

كود :

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

السلام عليكم

شكرا اخي الحبيب علي المشاركة 
نفذت الكود ولكن وجدت حروف التكست بوكس تكتب بشكل راسي كما بالصورة

مع الشكر