[المهندس الاول]

الاخ خالد السلام علكيم قد يساعدك الكود التالي فانه مختصر وجزى الله خيرا الاخ الذي وضح لك حل المشكلة لكن لاحظ هذا الكود يضمن لك حذف الفرغات من النص في حالة الضغط على مفتاح المسطرة (space) والله الموفق

 Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown, TextBox4.KeyDown

        If e.KeyCode = Keys.Enter Then

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

    End Sub