Casella di testo RichTextBox con caratteri evidenziati

[Vetriolo]

grazie Alka per l'interessamento cmq ho trovato la soluzione che riporto qui di seguito, potrebbe essere utile a qualcun altro:

DESC:
Questa funziona evidenzia in giallo+grassetto tutte le istanze del testo cercato in una RichTextBox


Public sub FindTextIstance(ByVal text As String, ByVal start As Integer) As Integer

If text.Length > 0 And start >= 0 Then

Dim indexToText As Integer = RichTextBoxName.Find(text, start, RichTextBoxFinds.WholeWord)

If indexToText >= 0 Then
RichTextBoxName.SelectionStart() = indexToText
RichTextBoxName.SelectionFont = New Font(txtEsito.SelectionFont, FontStyle.Bold)
RichTextBoxName.SelectionColor = Color.Yellow
End If
End If

End Sub