Casella di testo RichTextBox con caratteri evidenziati

[Vetriolo]

C'era un valore di ritorno che andava messo

Public Sub FindTextIstance(ByVal text As String, ByVal start 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