Bueno.. agregas el control al proyecto...
Proyecto->Componentes, en la ventana que te sale selecciona
Microsoft Rich textBox Control 6.0, y ya teniendo el control en el form ... escribis el siguiente codigo en el boton que hace eso de cambiar el color del texto:
Código:
Dim cadbuscada As String
Dim poslocaliz As Integer
On Error Resume Next
' Siguiendo el ejemplo que pones
' Partiendo que el Rich text tiene como texto: mi texto de prueba
cadbuscada = "texto" ' La palabra a la que queres cambiar el color
poslocaliz = RichTextBox1.Find(cadbuscada, , , rtfWholeWord)
If poslocaliz <> -1 Then
RichTextBox1.Span " ", True, True
RichTextBox1.SelColor = 255 ' Color Rojo
End If
Espero te sirva
Saludos
