Dim save As Integer, com As Integer, m As Integer
Static i As Integer
Dim a As String, b As String
i = i + 1
save = Len(RichTextBox2.Text)
If save >= i Then
m = i - 1
Else
m = RichTextBox2.SelStart
End If
For j = m To save
RichTextBox2.SelStart = j
k = j + 1
RichTextBox2.SelLength = 1
If Mid(RichTextBox2.Text, k, 1) = Mid(RichTextBox1.Text, k, 1) Then
RichTextBox2.SelColor = RGB(0, 0, 255)
Else
RichTextBox2.SelColor = RGB(255, 0, 0)
End If
Next
i = save
RichTextBox2.SelStart = i
End Sub