Vb.net 加上「；“下一步”；搜索表单的按钮

我已经编写了一个基本的搜索表单，它搜索文本框的文本，并突出显示搜索词的第一个实例（如果找到），到目前为止，我有这段代码，但想在表单上实现一个“下一步”按钮，单击该按钮后将转到下一个实例，再次单击并转到下一个实例等。有人能帮我吗

Dim Search As String
        Dim Find As String
        Search = TextBox1.Text
        Find = InStr(Form1.TextBox1.Text, Search)
        If Find Then
            Form1.TextBox1.Focus()
            Form1.TextBox1.SelectionStart = Find - 1
            Form1.TextBox1.SelectionLength = Len(Search)
        Else
            MsgBox("Can't find the text:" & Environment.NewLine & Search)
        End If

该函数有一个参数，可用于从特定索引开始搜索。在这种情况下，它将是找到的单词的索引加上单词本身的长度

Find = InStr(Find + Len(Search), Form1.TextBox1.Text, Search)

在本例中，我们从位置

Find+Len（Search）

开始。未经测试，但我认为这应该符合你的要求

可能是过早的优化，但您可以存储搜索项的长度，这样就不必在每次按下

Next

按钮时计算搜索项的长度