Dim s1, s2 As Integer

Private Sub RichTextBox2_Change()
For s1 = 1 To Len(RichTextBox2.text)
For s2 = 1 To Len(RichTextBox2.text)
If Mid(RichTextBox1.text, s1, 1) = Mid(RichTextBox2.text, s2, 1) Then
RichTextBox2.BackColor = &H80000005
End If
If Mid(RichTextBox1.text, s1, 1) <> Mid(RichTextBox2.text, s2, 1) Then
RichTextBox2.BackColor = &HFF&
End If
Next
Next
End Sub

Private Sub Text2_Change()
For s1 = 1 To Len(Text2.text)
For s2 = 1 To Len(Text2.text)
If Mid(Text1.text, s1, 1) = Mid(Text2.text, s2, 1) Then
Text2.ForeColor = &H0&
End If
If Mid(Text1.text, s1, 1) <> Mid(Text2.text, s2, 1) Then
Text2.ForeColor = &HFF&
End If
Next
Next
End Sub

Ek Dosyalar

deneme.rar(1.6 KB)