[VB.NET]请大虾们帮小虾米看看这个问题

<script type="text/javascript"><!--
google_ad_client = "pub-8333940862668978";
/* 728x90, 创建于 08-11-30 */
google_ad_slot = "4485230109";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>

请大虾们帮小虾米看看这个问题
我按书上的例子做了一个类似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
__________________________________________________________________________
原来是richtextbox是属性没设，不好意思。现在能查找了，也就是botton2的功能已经实现了，大家帮我看看第二段代码是不是有点问题，botton3的查找下一个还不好用。
__________________________________________________________________________
您要在Button3_Click过程外定义一个变量来存放上一次查找的坐标i，要不然每次点击Button3时i都是0，找不到后面的词了。
__________________________________________________________________________
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
__________________________________________________________________________
对不起，

Me.RichTextBox1.Select(j, Me.TextBox1.Text.Length)

这一句里的j也要换成i。
__________________________________________________________________________
谢谢楼上的，已经通过了。
什么时候我也能看别人的代码找出错误就好了！
__________________________________________________________________________
很快，我也刚学。
__________________________________________________________________________
给分
__________________________________________________________________________