Работа с Rich Textbox

  • Автор темы sashocheck
  • Дата начала
S

sashocheck

#1
Добрый вечер!
Подскажите, пожалуйста, решение следуещего вопроса.

Есть процедура:
Код:
Private Sub CommandButton1_Click()
RichTextBox3 = Replace(RichTextBox1.Text, "Home", RichTextBox2.Text)
End Sub
(Т.е. записываем текст в RichTextBox1 и RichTextBox2. Нажимаем CommandButton1 - текст из RichTextBox1 отображается в RichTextBox3, и если в RichTextBox1 есть слово "Home", то оно заменятся на содержимое RichTextBox2.)

Как сделать, чтобы в RichTextBox3 слово из RichTextBox2, на которое мы заменили слово "Home", отображалось красным цветом?