richtextbox.selstart的问题

Question

程序如下：
Sub fontred()
Dim str As String
Dim findaddress As Integer
str = txtresult.Text
findaddress = 0
For i = 1 To 5
   If i = 1 Then findaddress = 5
   findaddress = InStr(findaddress + 1, str, Left(txtseek.Text, Val(Combo2.Text)))
   txtresult.SelStart = findaddress
   txtresult.SelLength = Val(Combo2.Text)
   txtresult.SelColor = vbRed
   str = Right(str, Len(txtresult.Text) - finaddress)
Next i
str = ""
End Sub问题如下：
txtresult.SelStart = findaddress-1
为什么减1系统就提示无效的过程调用呢？

Answer 1

问题如下：（系统写错了。更正如下）  
txtresult.SelStart  =  findaddress-1  
为什么减1系统就提示无效的属性值呢？

Answer 2

SelStart属性应该是从1开始的,而不是从0开始的

Answer 3

www.cnpopsoft.com 
这里有不少独家提供的有关RichTextBox的资料！