Richtextbox 行问题请教

我最近在编写一个程序，该程序的目的是对比两个文件(假设两个文件有相同的行)每行的内容是否相等。(有2个Richtextbox），以下是我的代码：         Dim LineNumber1 As Int32 = 0
        Dim LineNumber2 As Int32 = 0
        Dim i As Int32 = 0        LineNumber1 = RichTextBox1.Lines.Length
        LineNumber2 = RichTextBox2.Lines.Length        If LineNumber1 = LineNumber2 Then
            For i = 1 To LineNumber1
                If RichTextBox1.Lines(i - 1) <> RichTextBox2.Lines(i - 1) Then
                    RichTextBox1.SelectionColor = System.Drawing.Color.Red
                    RichTextBox1.Lines(i - 1).
                End If
            Next
        End If但是运行结果总是不尽人意，请各位高手指点(E-mail: [email protected])。谢谢了。