[اليوم السابع]

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

كود :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = TextBox1.Text.Replace(" ", "")
       Dim AllData() As String = TextBox1.Text.Split(" ")

       For i As Integer = 0 To AllData.Length - 1
           TextBox2.Text &= AllData(i) & " "
       Next
   End Sub

شكرا لك يا قائد