cursor in richtextbox

[bonnowagt]

Ik heb een richtextbox die uiteraard vol staat met tekst. Ik zoek op de volgende wijze naar een bepaald stukje tekst bijv. "De"

   tekst = TextBox1.Text
        Dim Lengte As Integer = Tekst.Length
        Dim Plaats, Zoek As Integer
        Dim gevonden As Integer = 0
        Zoek = RichTextBox2.Find(tekst, 0, -1, RichTextBoxFinds.None)
        Do Until Zoek < 0
            If Zoek < Plaats Then Exit Sub
            RichTextBox2.SelectionStart = Zoek
            RichTextBox2.SelectionLength = Lengte
            RichTextBox2.SelectionFont = New Font(FontFamily.GenericSansSerif, 12, FontStyle.Bold)
            indexOfSearchText = 1
            RichTextBox2.SelectionColor = Color.Red
            Plaats = Zoek + Lengte
        Zoek = RichTextBox2.Find(tekst, Plaats, -1, RichTextBoxFinds.None)
                     gevonden = gevonden + 1
            RichTextBox1.Focus()
        Loop

     '   RichTextBox2.Find(Zoek, 1, RichTextBoxFinds.WholeWord)
        Label2.Text = "Aantal gevonden woorden: " & gevonden

Vervolgens krijg ik dan bijvoorbeeld 60 hits. alle woorden met De worden rood gekleurd. Geen probleem tot dusver.
Wat ik nu wil en eigenlijk nie tuitkom is het volgende:
De cursor moet automatisch naar het erste gevonden woord gaan eb vervolgens middels bijvoorbeeld een mnop "NEXT"moet de cursor naar het volgend woord gaan enz.

Wie kan mij helpen

 

[tim687]

Misschien moet je iets doen dat hij naar de volgende rood gekleurde tekst gaat?

 

[bonnowagt]

Ja dat weet ik dat was dus ook de vraag