RichTextBox

[javiermil]

Hola, debe hacerse un lío con la concatenación, hazlo así:

Dim conta As Integer
conta = 0
For i = 1 To 10
Me.RichTextBox1.AppendText("prue" & vbNewLine)
Me.RichTextBox1.Select(conta, Me.RichTextBox1.Text.Length)
Me.RichTextBox1.SelectionColor = Color.Gold
conta = Me.RichTextBox1.Text.Length
Me.RichTextBox1.AppendText("prueba2" & vbNewLine)
Me.RichTextBox1.Select(conta, Me.RichTextBox1.Text.Length)
Me.RichTextBox1.SelectionColor = Color.DarkCyan
conta = Me.RichTextBox1.Text.Length
Next

Saludos