[X] My Assistant

[k.johnny]

After finding a certain text in a RichTextBox, I want to move the found text (line of text) to the topmost of the RichTextBox. How can I do? Help me please.

My codes like this:

CODE

Private Sub List1_Click()
    Dim flag, position
    rText.SelStart = 0
    rText.SelLength = 0
    flag = rtfWholeWord
    position = rText.Find(list1.Text, , , flag)
        If position = -1 Then
        'for now do nothing
        Else
        'for now do nothing
        End If
End sub

K.Johnny

This post has been edited by k.johnny: 27 Feb, 2009 - 02:08 PM