جستجو در RichTextBox

[shahram_g]

سلام.

كد زير رو براي جستجو در richtextbox نوشتم ولي متاسفانه حروف و كلمات فارسي رو پيدا نمي كنه.
text1 همون richtextbox و text2 معموليه.
تنها در صورتي كه روي text1 كه فارسي نوشته شده كليك كنم عيارات فارسي رو پيدا مي كنه.
اگه كسي راهنمائي كنه ممنون مي شم.
اينم كد:

کد:

Private Sub Command1_Click()
    Static start As Long
    text1.SelStart = 1
    text1.HideSelection = False
    textfind = text1.Find(text2.Text, start)
    If textfind <> -1 Then
        start = textfind + 1
    Else
    MsgBox "Search is not found", vbExclamation
    start = 0
    End If
End Sub