打字软件中，打中文方面的问题

Question

richtextbox2.text的属性里是正确的汉字
richtextbox3.text的属性里是我们要打的字
用这两个控件的text属性作比较，正确的用蓝色显示，错误的用红色显示Private Sub RichTextBox3_Change()    Dim str1$, str2$, L%, l2%
    Static i, l1 As Integer
    RichTextBox3.SelLength = 1
    l2 = Len(RichTextBox3.Text)
    
    i = i + 1            '起始位置
    L = l2 - l1          '取字符串长度
    
    str1 = Mid(RichTextBox2.Text, i, L)
    str2 = Mid(RichTextBox3.Text, i, L)
    
    
    l1 = l2             '把上一个字符串长度给变量l1
    i = i + L - 1       '确定下一个字符串的起始位置
  
    RichTextBox3.SelStart = RichTextBox3.SelStart + 1
    
    If str2 <> str1 Then       
       RichTextBox3.SelColor = RGB(255, 0, 0)
    Else
       
      
       RichTextBox3.SelColor = RGB(0, 0, 255)
    End If
    
    
End Sub
正确与否，我能判断出来，颜色为什么不能正确显示呀！
那位高手给指教一下！帮我改改代码，万分的感谢！

Answer 1

写得那么复杂干嘛？这样不就更简洁(呵呵，我是菜鸟，如果你觉得不行别见怪）：
Private Sub richtextbox3_Change()
If richtextbox3.Text <> richtextbox2.Text Then
   richtextbox3.ForeColor = RGB(255, 0, 0)
Else
   richtextbox3.ForeColor = RGB(0, 0, 255)
End If
End Sub

Answer 2

这位仁兄的程序不对呀！有Bug呀！

Answer 3

必须用SelLength把要改变的文字选中才行，单是SelStart不够的。.SelStart=....
.SelLength=1

Answer 4

TextBox都没有SelColor这个方法！！！！

Answer 5

楼主还没解决啊？？？？代码给你：Private Sub RichTextBox2_Change()
Dim selStr1 As String
Dim selStr2 As String
Dim selleng1 As Long
If Not RichTextBox2.SelStart = 0 Then
    RichTextBox1.SelStart = RichTextBox2.SelStart - 1
    selleng1 = RichTextBox1.SelStart
End If
    RichTextBox1.SelLength = 1
    selStr1 = RichTextBox1.SelText
    RichTextBox2.SelStart = selleng1
    RichTextBox2.SelLength = 1
    selStr2 = RichTextBox2.SelText
    If selStr1 = selStr2 Then
        RichTextBox2.SelColor = RGB(0, 0, 0)
    Else
        RichTextBox2.SelStart = selleng1
        RichTextBox2.SelLength = 1
        RichTextBox2.SelColor = RGB(0, 0, 255)
    End If
    RichTextBox2.SelStart = selleng1 + 1
End Sub