Foro de elhacker.net

Private Sub Form_Load()
    RichTextBox1.Text = "(Reverse engineering). La ingeniería inversa es el proceso de descubrir los principios tecnológicos de un dispositivo, objeto o sistema, a través de razonamiento abductivo de su estructura, función y operación."
    RichTextBox1.SelStart = Len(RichTextBox1.Text)
End Sub

Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 32 Then '---> Si presiono la tecla Espacio
        CambiarColor ' ---> Llama al procedimiento CambiarColor
    End If
End Sub

Public Sub CambiarColor()
    With RichTextBox1
    .SelStart = 0 '---> Comienza desde el principio
    Do
        x = .Find("hola", .SelStart, , rtfWholeWord Or rtfMatchCase)'---> Busca la palabra
        .SelColor = vbRed '---> Establece el color
        .SelStart = .SelStart + 1 '---> Incrementa en 1
    Loop Until x = -1
    .SelStart = Len(.Text) '---> Se posiciona al final de todo
    End With
End Sub

Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
    RichTextBox1.SelColor = vbBlue '---> Tipea de color azul
End Sub