RichTextBox

[Eddy_rv]

Hola a todos, en las siguientes lineas por q se pierde el color cada ves q va incrementando el for.

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

Tien algun problema este contro?
Saludos y gracias

[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