[3booody]

تحتاج تقارن حرف حرف

كود :

On Error Resume Next
       For i As Integer = 0 To TextBox1.Text.Length - 1
           If TextBox1.Text.Chars(i) <> TextBox2.Text.Chars(i) Then
               TextBox1.Text = TextBox1.Text.Remove(i, 1)
               TextBox2.Text = TextBox2.Text.Remove(i, 1)
           End If
       Next