vb.关于richtextbox查找替换

Dim strFind As String '定义一个查找字符
Dim intStart As Integer '定义找到位置
Dim strReplace As String '定义替换的字符
Dim strFindOn As String '查找和查找下一处

Private Sub cmdReplaceAll_click()

Dim intCont As Integer

If txtFind.Text = "" Then

lblPrint.Caption = "请先输入查找关键字..."
Exit Sub
Else
strFind = txtFind.Text
strReplace = txtReplace

If strFind <> strReplace Then

Do While intStart >= 0

intStart = frmWordPad.RichText.Find(strFind)

If intStart >= 0 Then

frmWordPad.RichText.SelStart = intStart
frmWordPad.RichText.SelLength = Len(strFind)

关于VB...... 关于vb??? 关于VB，VB高手进来~！ 关于VB的问题???? 关于VB语言的 关于VB的问题! 关于VB中数据库 关于VB的控件 关于数据库及VB 关于VB一题!!)