[RESOLVED] RichText Change Color of all Certain Words Only

[Vexslasher]

I have been searching around and can't find anything that works for this. Basically I just want to be able to change the colors of certain words in a richtextbox

for example. I want it to look like this in the richtextbox when it gets certain words like the names of the colors etc.
Normal:Blue:Red:Green:Normal:Normal:Blue:Red:Green:Normal

any help would be appreciated.

[Edgemeal]

try,

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ColorWord(RichTextBox1, "Blue", Color.Blue)
        ColorWord(RichTextBox1, "Red", Color.Red)
    End Sub


    Public Sub ColorWord(rtb As RichTextBox, word As String, color As Color)
        Dim start, found As Integer
        With rtb
            found = .Find(word, start, RichTextBoxFinds.WholeWord Or RichTextBoxFinds.NoHighlight)
            Do While found > -1
                .SelectionStart = found
                .SelectionLength = word.Length
                .SelectionColor = color
                start = found + word.Length
                If start >= .TextLength Then Exit Do
                found = .Find(word, start, RichTextBoxFinds.WholeWord Or RichTextBoxFinds.NoHighlight)
            Loop
        End With
    End Sub

End Class

[Vexslasher]

thanks works great!