Visual Basic.NET - richtextbox con linea de cada color

Quiero hacer un richtextbox con una linea de cada color. Tengo este código:

Public Class Form1
Dim UltimaPosicion As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

With RichTextBox1
.Text &= "AAAA" & vbNewLine
.SelectionStart = UltimaPosicion
.SelectionLength = .TextLength
.SelectionFont = New Font(.SelectionFont.FontFamily, .SelectionFont.Size, FontStyle.Regular)
.SelectionColor = Color.Red
'.SelectionStart = .SelectionStart + .SelectionLength
.Refresh()
UltimaPosicion = .SelectionStart + .SelectionLength
End With
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

With RichTextBox1
.Text &= "BBBB" & vbNewLine
.SelectionStart = UltimaPosicion
.SelectionLength = .TextLength
.SelectionFont = New Font(.SelectionFont.FontFamily, .SelectionFont.Size, FontStyle.Regular)
.SelectionColor = Color.Blue
'.SelectionStart = .SelectionStart + .SelectionLength
.Refresh()
UltimaPosicion = .SelectionStart + .SelectionLength
End With
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
UltimaPosicion = 0
RichTextBox1.Text = String.Empty
End Sub
End Class

Pero al tercer intento no hace lo correcto... pone las tres lineas en el color que has empezado. Alguien sabe pq.?
Asias

Eso es porque el cluster ha dinamizado y el condesador de fluzo ha dinamizazo, ponle color, sino busca informacion

El condesador de fluzo ha dinamizazo.... ??? Busque por google y nada
Como lo evito? o mejor dicho, como desdinamizo el cluster? :-D