请教:关于RICHTEXTBOX的问题,希望各位朋友帮帮忙了.先谢谢了,回复后即送分.

Question

本人想要实现这样的功能.
如:我想要把RICHTEXTBOX1中的内容送到RICHTEXTBOX2里.但是在RICHTEXTBOX1里设置的相关信息也要存放到RICHTEXTBOX2中去.本人只实现了把一条记录存进去.若是多条的话,就保留最后一条信息.我想要的效果就好比在聊天室里一样可以看到形式不同的.请问该怎么办呢?
我做的先贴出来,供参照.
richtextbox2.Text = "『老师』" & "说:" & Trim(richtextbox1.Text) & " " &  Chr(13) & Chr(10) & Trim(richtextbox2.Text)
     Dim i As Integer
     i = Len(richtextbox2.Text)
     Dim j As Integer
 j = InStr(1, richtextbox2.Text, "说")  '计算加粗的起始位置
richtextbox2.SelStart = j + 1
richtextbox2.SelLength = Len(richtextbox1.Text) 
richtextbox2.SelBold = True
 richtextbox2.SelColor = &HFF&