Whenever you recieve the new colour, make sure that the cursor is at the end of the RichTextBox.

Code:
RichTextBox1.SelStart = Len(RichTextBox1.Text)