[vb.net]如何在richtextbox中查找关键字的位置（所在行），然后删除所在行上面或者下面的行

[vb.net]如何在richtextbox中查找关键字的位置（所在行），然后删除所在行上面或者下面的行

假设richtextbox1中有这样一些文本:
-------------------------
[vb.net]如何在
richtextbox
中查找关键字的位置
（所在行），然后删除
所在行上面或者
下面的行
--------------------------
找到关键字 "然后" 删除相邻行 代码如下:

Dim Lines() As String = RichTextBox1.Lines
Dim index As Integer = RichTextBox1.Find("然后", 0, RichTextBoxFinds.MatchCase)
Dim TargetLine As Integer = RichTextBox1.GetLineFromCharIndex(index)

Lines(TargetLine - 1) = ""
Lines(TargetLine + 1) = ""

RichTextBox1.Clear()

For i = 0 To Lines.Length - 1
RichTextBox1.Text = RichTextBox1.Text & Lines(i) & vbCrLf
Next

搜一下：[vb.net]如何在richtextbox中查找关键字的位置（所在行），然后删除所在行上面或者下面的行