在多行文本框中跟随选择或焦点的多个文本框？

如何解决在多行文本框中跟随选择或焦点的多个文本框？

我有一个多行文本框文本框的问题，当搜索字符串时，它的第一个焦点停留在第一个位置的单词上，但仍然继续选择其他单词，不选择它们！

这是我的代码：

If testArray(p) / 2987 >= dub + (1787 / 2987) And testArray(p) / 2987 < dub + 1 Then
                Main.TextBox31.Focus()
                Main.TextBox31.SelectionStart = Main.TextBox31.Text.IndexOf(Me.TextBox1.Text)
                Main.TextBox31.SelectionLength = Me.TextBox1.TextLength
                Main.TextBox31.ScrollToCaret()
                MsgBox("oui16")
                System.Threading.Thread.Sleep(1000)
            End If

第一行给出了搜索字节的位置。 TextBox31 控件是多行控件，其中我在 testArray (p) 数组中有搜索字节。 TextBox1 控件为我提供了我正在寻找的字符串。

附注：

解决方法

我可以使用列表框实现类似的功能，它也可以转换为文本框吗？

                    Dim rect As Rectangle
                    Dim bruh As New SolidBrush(Color.FromArgb(120,225))
                    Dim gfx As Graphics = ListBox1.CreateGraphics
                    gfx.FillRectangle(bruh,rect)