[VB.NET]Colorare testo in RichTextBox

[mardok30]

Ho un ciclo che mi serve per inserire del testo in una RichTextBox e, diciamo che ogni riga che inserisco vorrei colorarla con un certo colore, es.:

Dim testo As String = "ciaociaocicoaicocoasofs"

      RichTextBox1.Text = ""

      For i As Integer = 0 To 10
            RichTextBox1.Text &= testo & vbNewLine

            RichTextBox1.Select(RichTextBox1.Text.Length, testo.Length)

            RichTextBox1.SelectionColor = Color.FromArgb(Color.Orange.ToArgb + (i * 5000))
        Next

solo che così mi colora tutto dello stesso colore. Dov'è che sbaglio?