Kp ob das so geht aber versuch es mal so:
Code:
Private Sub SelectWithColor(ByRef rtf As RichTextBox,
ByVal textToSelect As String,
ByVal color As Color,
ByVal font As Font)
Dim index = rtf.Find(textToSelect, RichTextBoxFinds.WholeWord)
If index <> -1 Then
' Select our word.
rtf.Select(index, Len(textToSelect))
' Select new font.
rtf.SelectionFont = font
' Select color of selection.
rtf.SelectionColor = color
End If
End Sub
Dann halt ganz einfach "SelectWithColor" aufrufen.
Code:
SelectWithColor(Me.RichTextBox1, account, Color.Red, New Font("Verdana", 12, FontStyle.Bold))