Visual Basic.NET - Como enviar texto con color en texbox.

tuRichTextBox.Text = "Algún texto."

tuRichTextBox.SelectionStart = 6 'Inicio de la selección

tuRichTextBox.SelectionLength = 6 'Cantidad de caracteres seleccionados

tuRichTextBox.SelectionFont = New Font("Arial", 12) 'Asignar fuente al texto seleccionado

tuRichTextBox.SelectionColor = Color.White 'Asignar color de fuente al texto seleccionado

tuRichTextBox.SelectionBackColor = Color.Black 'Asignar color de fondo al texto seleccionado

RichTextBox2.Rtf = RichTextBox1.Rtf

tuRichBoxTextBox2.Rtf += tuRichBoxTextBox1.Rtf

If (tuRichBoxTextBox2.Rtf = Nothing) Then //Aquí mira si se puede igualar a Nothing, sino usa IsNothing(object)

     tuRichBoxTextBox2.Rtf = tuRichBoxTextBox1.Rtf

Else

     tuRichBoxTextBox2.Rtf = tuRichBoxTextBox2.Rtf  & tuRichBoxTextBox1.Rtf

En If

If e.KeyCode = Keys.Enter Then

         RichTextBox1.SelectAll()

         RichTextBox1.SelectionFont = New Font("Verdana", 11) 'Asignar fuente al texto seleccionado

         RichTextBox1.SelectionColor = Color.Red 'Asignar color de fuente al texto seleccionado

         RichTextBox2.AppendText(RichTextBox1.Rtf) ' // <- AQUÏ ES EL PROBLEMA, SI cambio a TEXT funciona pero sin color :/

         RichTextBox1.Clear()

      End If

Private Sub enviarRtfARichTextBox(control1 As RichTextBox, control2 As RichTextBox)

        control2.AppendText(Environment.NewLine & control1.Text)

        Dim inicioSeleccion As Integer = control2.Find(control1.Text, RichTextBoxFinds.Reverse)

        If (inicioSeleccion = -1) = False Then

            control2.SelectionStart = inicioSeleccion

            control2.SelectionLength = control1.Text.Length

            control1.SelectAll()

            control2.SelectedRtf = control1.SelectedRtf

        End If

        control1.Clear()

End Sub