动态添加信息到RichtextBox,如何指定颜色???

[dreameasy]

以下代码取自小弟的一个程序,该过程是将strMsg加上日期以后添加到主窗体上的一个RichtextBox(rtbDebug)最后面. bCrlf 是决定是否空一行的.
该代码基本可以实现流水滚动添加信息功能（比如说显示接收的数据和发送的数据）.但是我发现颜色设定有些问题,多次调用这个过程，使用不同的lColor参数，并没有出现预想中的可以使RichtextBox变得色彩分明，而是永远只有最后的颜色。
事情不大，但我就是很烦！
请各位大瞎帮忙解决一下。


'添加到调试窗口
Sub AddDebug(strMsg As String, lColor As Long, bCrlf As Boolean)
Dim strAdd As String
Dim ilenStart, iLens As Integer
strAdd = "[" & Format(Now(), "yyyy年mm月dd日HH:MM:SS") & "]::::" & strMsg & vbCrLf & IIf(bCrlf, vbCrLf, "")
iLens = Len(strAdd)
With frmMain.rtbDebug
ilenStart = Len(.Text)
.Text = .Text + strAdd
.SelStart = ilenStart
.SelLength = iLens
.SelColor = lColor
.SelLength = 0
End With
End Sub