Private z1 As String = "ich"
   Private z2 As String = "eis"
 
   Sub Färben()
      RichTextBoxEx1.MarkString(z1, Color.Red, RichTextBoxFinds.MatchCase)
      RichTextBoxEx1.MarkString(z2, Color.Green, RichTextBoxFinds.MatchCase)
 
      RichTextBoxEx1.SelectionStart = 0
      RichTextBoxEx1.SelectionLength = 0
 
      RichTextBoxEx1.Focus()
   End Sub