Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
Dim start As Integer
 
start = 0
    Do
 
        RichTextBox1.SelectionStart = RichTextBox1.Find("hallo", start, _
          RichTextBox1.TextLength, RichTextBoxFinds.None)
        RichTextBox1.SelectionColor = Color.Green
        start = Val(RichTextBox1.SelectionStart) + Val( _
          RichTextBox1.SelectionLength)
    Loop Until RichTextBox1.Find("hallo", start, RichTextBox1.TextLength, _
    RichTextBoxFinds.None) = -1
End Sub