Visual Basic - Label con multi color

Private Sub Form_Load()

'Agrega un richtextbox control a tu formulario y agrega el código que sigue.

'Asegurate de cambiar Me.RichTextBox1.Appearance = rtfFlat manualmente usando el diseñador.

'Me.RichTextBox1.Appearance = rtfFlat 'Cambialo manualmente desde el diseñador...

Me.RichTextBox1.Locked = True

Me.RichTextBox1.BorderStyle = rtfNoBorder

Me.RichTextBox1.BackColor = Me.BackColor

Dim sLabelValue As String

sLabelValue = "Este es el texto que quiero cambiar:"

'Largo de la cadena sLabelValue

Dim iLenLabelValue As Integer

iLenLabelValue = Len(sLabelValue)

'Se explica por si solo

Dim sTextoABuscar As String

'Donde comienza en la cadena el texto que estamos buscando

Dim iCurrentPosition As Integer

iCurrentPosition = 0

'Asignamos la cadena al texto de nuestro RichTextBox

Me.RichTextBox1.Text = sLabelValue

'Color Rojo

sTextoABuscar = "Este es"

iCurrentPosition = RichTextBox1.Find(sTextoABuscar, 0, iLenLabelValue) 'Donde comienza la cadena que estamos buscando

RichTextBox1.SelStart = iCurrentPosition 'Seleccionar desde donde comienza nuestro texto

RichTextBox1.SelLength = Len(sTextoABuscar) 'Largo del Texto que estamos buscando

RichTextBox1.SelColor = vbRed 'Color con el cual pintaremos el texto

'Color Azul

sTextoABuscar = "texto"

iCurrentPosition = RichTextBox1.Find(sTextoABuscar, 0, iLenLabelValue)

RichTextBox1.SelStart = iCurrentPosition

RichTextBox1.SelLength = Len(sTextoABuscar)

RichTextBox1.SelColor = vbBlue

'Color Verde

sTextoABuscar = "quiero cambiar:"

iCurrentPosition = RichTextBox1.Find(sTextoABuscar, 0, iLenLabelValue)

RichTextBox1.SelStart = iCurrentPosition

RichTextBox1.SelLength = Len(sTextoABuscar)

RichTextBox1.SelColor = vbGreen

End Sub

Dim lista As New List(Of Color)

Dim pos As Integer = 0

Private Sub Form_Load(...)

   lista.Add(Color.Red)

   lista.Add(Color.Blue)

   lista.Add(Color.Green)

End Sub

Private Sub timer1_Tick(...)

    timer1.Stop()

   Label.BackColor = lista(pos)

   pos += 1

   If pos = 3 Then

       pos = 0  'aqui vuelve a empezar el ciclo porque llego al ultimo color de la lista

   End If

   timer1.Start()

Endd Sub

Sub colorear()

RTB.SelStart = 0 ' aca indico que seleccione el texto de ritchtextbox desde el primer caracter

RTB.SelLength = Len(RTB.Text) 'hasta el final

RTB.SelColor = &H8000000B 'y lo pinte de color blanco

pos = RTB.Find(Label.Caption, RTB.SelStart, , rtfWholeWord) 'aca indico que busque dentro del RTB las coincidencias con el Label

    Do While pos <> -1 'aca buscará hasta el final del texto TODAS las coincidencias

        RTB.SelStart = pos

        RTB.SelLength = Len(Label.caption)

       RTB.SelColor = vbBlue 'y las pintará de color azul

        pos = RTB.Find(Label.Caption, (pos + Len(Label.Caption)), Len(RTB.Text), rtfWholeWord)

        RTB.SelStart = Len(frm_RTB.Text)

    Loop

End sub