编写VB中记事本中的关键字

好了，你试试看！你可以自己定义关键字，在'出自己随便添加。
===========================
Option Explicit
Dim s

Private Sub Form_Load()
s = Array("int", "main", "char") '任意添加关键字。
End Sub

Private Sub RichTextBox1_Change()
Dim l As Long, t As String, p, d As Long
t = RichTextBox1.Text
d = RichTextBox1.SelStart
For Each p In s
l = InStr(1, t, p)
If l = 0 Then GoTo n
RichTextBox1.SelStart = l - 1
RichTextBox1.SelLength = Len(p)
RichTextBox1.SelColor = vbRed
RichTextBox1.SelStart = l + Len(p) - 1
RichTextBox1.SelColor = vbBlack
Do Until l = 0
l = InStr(l + 1, t, p)
If l = 0 Then Exit Do
RichTextBox1.SelStart = l - 1
RichTextBox1.SelLength = Len(p)
RichTextBox1.SelColor = vbRed
RichTextBox1.SelStart = l + Len(p) - 1
RichTextBox1.SelColor = vbBlack
Loop
n: Next
RichTextBox1.SelStart = d
End Sub

Dim XX as Integer
其他类推

要自己编控件。。。。。。

很难办...