如何使用vb.net对文本区控件中的不同句子进行不同的着色？

' 获取文本区控件中的文本内容
Dim text As String = TextBox1.Text

' 使用正则表达式划分句子（示例只以句号作为划分标志）
Dim sentences As String() = text.Split("."c)

' 遍历每个句子
For Each sentence As String In sentences
    ' 判断句子的属性条件，并对不同的句子进行不同的着色处理
    If sentence.StartsWith("I") Then
        ' 对以"I"开头的句子进行红色着色
        TextBox1.SelectionColor = Color.Red
    ElseIf sentence.EndsWith("?") Then
        ' 对以"?"结尾的句子进行蓝色着色
        TextBox1.SelectionColor = Color.Blue
    Else
        ' 其他句子进行默认的黑色着色
        TextBox1.SelectionColor = Color.Black
    End If
    
    ' 更新文本区控件中的文本内容，使修改后的着色效果生效
    TextBox1.SelectedText = sentence & "."
Next