[Taha Okla]

استخدم ثلاث صناديق نص، وفي صندوق النص الاول بحيث حدث التغيير يكون كـ التالي :

كود :

   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Dim X As String = ""

       TextBox2.Text = TextBox1.Text.Replace(" ", "")

       For i = 1 To TextBox1.Text.Length
           X = X & Mid(TextBox1.Text, i, 1) & " "
       Next

       TextBox3.Text = Trim(X)
   End Sub