Подсветка кода

[WEB_13]

Попробовал реализовать подсветку кода, как в VB или других компиляторах. Оказалось это куда сложнее, чем кажется! Элемент TextBox вообще не подходит (цветов нет). Всё, что мне удалось, это:

Private Sub RichTextBox1_Change()
Поиск = InStrRev(RichTextBox1.Text, "Dim", RichTextBox1.SelStart)
If Поиск > 0 Then
Поиск = RichTextBox1.SelStart
RichTextBox1.SelStart = Поиск - 1
RichTextBox1.SelLength = 3
RichTextBox1.SelColor = 8404992
RichTextBox1.SelBold = True
RichTextBox1.SelLength = 0
RichTextBox1.SelStart = Поиск
RichTextBox1.SelColor = vbBlack
RichTextBox1.SelBold = False
End If
End Sub

Полно недостатков: одно слово "Dim" для поиска, а если их много тогда торозится программа. Ещё если удалить допустим символ "m", то "Di" останется синим цвето и так далее.
Подскажите пожалуйста, как правильнее реализовать такую процедуру?

[GSerg]

http://old.vbstreets.ru/topic.asp?TOPIC_ID=6732
История повторяется