Public Class RichTextBoxEx
   Inherits System.Windows.Forms.RichTextBox
 
   Private SearchIndex As Integer
 
   ''' <summary>
   ''' Durchsucht den Text nach einer bestimmten Zeichenkette und markiert die 
   ' nächste gefundene Übereinstimmung
   ''' </summary>
   ''' <param name="Search">Enthält die zu suchende Zeichenkette</param>
   ''' <param name="SearchOptions">Enthält die Suchoptionen</param>
   ''' <returns>true, wenn der Suchbegriff mit den angegebenen Suchoptionen 
   ' gefunden wurde, ansonsten false</returns>
   ''' <remarks></remarks>
   Public Function SearchString(ByVal Search As String, ByVal SearchOptions As _
     Windows.Forms.RichTextBoxFinds) As Boolean
      ' Index für übereinstimmende Zeichenkette; -1, wenn nicht gefunden
      Dim i As Integer
 
      Try
         If (SearchOptions And Windows.Forms.RichTextBoxFinds.Reverse) = _
           Windows.Forms.RichTextBoxFinds.Reverse Then
            ' Ausführen, wenn Suchrichtung aufwärts ist
            i = Me.Find(Search, 0, Me.SearchIndex, SearchOptions)
         Else
            ' Ausführen, wenn Suchrichtung abwärts ist
            i = Me.Find(Search, Me.SearchIndex, SearchOptions)
         End If
      Catch ex As Exception
 
      End Try
 
      If i < 0 Then
         ' Ausführen, wenn Zeichenkette nicht vorhanden ist
         Return False
      Else
         Me.SelectionColor = Color.Red
 
         ' Ausführen, wenn Zeichenkette vorhanden ist
         Me.SearchIndex = i + 1
         Return True
      End If
 
      ' Focus auf den Editor setzen
      Me.Focus()
   End Function
End Class