标题：文本框中查找到的字符，如何高亮显示？

文本框中查找到的字符，如何高亮显示？

比如，文本框１里输入了一行字符串，文本框２中输入要查找的字符，当我在文本框１中查找到字符后，如何让其能高亮显示？

我的代码如下：

Dim t1,t2 As String
t1=e.Form.Controls("TextBox1").text
t2=e.Form.Controls("TextBox2").text
If t2 <> "" Then
    If Instr(t1,t2) <> 0 Then
        e.Form.Controls("TextBox1").SelectionStart = Instr(t1,t2)-1
        e.Form.Controls("TextBox1").SelectionLength = Len(t2)
    Else
        MessageBox.Show("没有找到!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
    End If
Else
    MessageBox.Show("请输入要查找的字符!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
End If

Dim t1,t2 As String
t1=e.Form.Controls("TextBox1").text
t2=e.Form.Controls("TextBox2").text

e.Form.Controls("TextBox1").Select()
If t2 <> "" Then
    If Instr(t1,t2) <> 0 Then
        e.Form.Controls("TextBox1").SelectionStart = Instr(t1,t2)-1
        e.Form.Controls("TextBox1").SelectionLength = Len(t2)
    Else
        MessageBox.Show("没有找到!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
    End If
Else
    MessageBox.Show("请输入要查找的字符!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
End If

Dim c1 As winform.control=e.Form.controls("textbox1")
Dim c2 As winform.control=e.Form.controls("textbox2")
Dim t1 As String=e.Form.Controls("TextBox1").text
Dim t2 As String=e.Form.Controls("TextBox2").text

c1.Select()
If t2 <> "" Then
    If Instr(t1,t2) <> 0 Then
        c1.SelectionStart = Instr(t1,t2)-1
        c1.SelectionLength = Len(t2)
    Else
        MessageBox.Show("没有找到!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
    End If
Else
    MessageBox.Show("请输入要查找的字符!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
End If

这段代码看似没有问题，但不能保存，求助。

但第三行是对的