请们帮小虾米看看这个有关问题

请大虾们帮小虾米看看这个问题
我按书上的例子做了一个类似word里的查找功能，可是在textbox1里输入字符查找一点反应都没有。
代码如下：
  Private   Sub   Button2_Click(ByVal   sender   As   Object,   ByVal   e   As   System.EventArgs)   Handles   Button2.Click
                Dim   i   As   Integer
                i   =   0
                i   =   RichTextBox1.Find(Me.TextBox1.Text)
                If   i   > =   0   Then
                        Me.RichTextBox1.Select(i,   Me.TextBox1.Text.Length)
                        i   =   i   +   TextBox1.Text.Length
                End   If
                Me.Button2.Enabled   =   True
        End   Sub

        Private   Sub   Button3_Click(ByVal   sender   As   Object,   ByVal   e   As   System.EventArgs)   Handles   Button3.Click
                Dim   j   As   Integer
                Dim   i   As   Integer
                j   =   RichTextBox1.Find(TextBox1.Text,   i,   -1,   None)
                If   j   > =   0   Then
                        Me.RichTextBox1.Select(j,   Me.TextBox1.Text.Length)
                        j   =   i   +   TextBox1.Text.Length
                        i   =   j
                End   If
        End   Sub

[解决办法]
Dim i As Integer

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
i = 0
i = RichTextBox1.Find(Me.TextBox1.Text)
If i > = 0 Then
Me.RichTextBox1.Select(i, Me.TextBox1.Text.Length)
i = i + TextBox1.Text.Length
End If
Me.Button2.Enabled = True
End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
i = RichTextBox1.Find(TextBox1.Text, i, -1, RichTextBoxFinds.None)
If i > = 0 Then
Me.RichTextBox1.Select(j, Me.TextBox1.Text.Length)
i = i + TextBox1.Text.Length
End If
End Sub