[sooriaty03]

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

إقتباس :

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
TextBox2.Multiline = True
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox2.Text = TextBox1.Text.Replace(" ", vbNewLine) 'Replace Space With New Line
End Sub

بالتوفيق