پاراگراف rich textbox

[ghaem-soft]

با سلام
من با کد زیر تعداد پاراگراف ها را در lable8 می نویسم



Private Sub RichTextBox1_Click(sender As Object, e As EventArgs) Handles RichTextBox1.Click
Dim in1 As Integer = 0
Dim in2 As Integer = 0
For i = 0 To RichTextBox1.Lines.Length - 1


in2 = in2 + RichTextBox1.Lines(i).Length
If RichTextBox1.SelectionStart > in1 And RichTextBox1.SelectionStart < in2 Then
RichTextBox1.Select(in1 + i, RichTextBox1.Lines(i).Length + 1)
Label1.Text = i
Button1.Focus()
End If
in1 = in1 + RichTextBox1.Lines(i).Length
Next
End Sub


اما وقتی تعدا پاراگراف ها زیاد است با مشکل مواجه می شوم
آیا راهی سریع تر هم هست

گاهی تعداد پاراگراف هایم به 1000 می رسد



------------------------------
منبع کد
http://videolearning.rozblog.com