richtextbox 动态输入改变字体颜色失败，请兄弟们给看一下

[orange82]

小弟写了一个程序，在一个RTB里输入文字，然后通过文字输入后确定的方式，如果是ENTER则按默认颜色即黑色输入另一个RTB中，如果是CTRL则表示本段文字重要用红色来输入，但不知道为什么，如果输入红色后再按ENTER则入黑色时原来红色的文字也变成了黑色就算再按CTRL输入红色字原来的红色字也会变成黑色。小弟百思不得其解，请各位帮忙看一下，谢谢！


Private Sub RichTextBox2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox2.KeyPress

If e.KeyChar = vbCr Then

addtext(RichTextBox2.Text)
RichTextBox1.Focus()
RichTextBox1.SelectionStart = RichTextBox1.TextLength


RichTextBox2.Text = ""
RichTextBox2.Focus()
End If
End Sub

Private Sub addtextByVal mytext As String)
recordings = RichTextBox1.Text
RichTextBox1.Text = recordings & mytext & vbcr

End Sub

Private Sub RichTextBox2_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox2.KeyDown
If e.KeyValue = Keys.ControlKey Then
markend = RichTextBox2.TextLength
markstart = RichTextBox1.TextLength
e.Handled = True
addtext(RichTextBox2.Text)
RichTextBox1.Select(markstart, markend)
RichTextBox1.SelectionColor = Color.Red
RichTextBox1.Focus()
RichTextBox1.SelectionStart = RichTextBox1.TextLength
RichTextBox2.Text = ""
RichTextBox2.Focus()
End If

[orange82]

在线等答案啊，兄弟们有人知道告诉我一下啊，对了我用的是VB2008 RICHTEXTBOX的方式名称和2005不一样，但大家一看就知道是什么意思。