salva...ho un problema con l'utilizzo delle rchtext box ed in particolare ho problema per colorare le singole frasi...

stò facendo una semplice chat dove vi una textbox che registra tutto quello ch3e i 2 utenti si sono detti...

in verde quello che ha detto l'utente A ed in rossoche ha detto l'utente B...il problema è che invece che colorarmi le singole grasi ogni volta mi colora tutto o quasi...come posso fare

questo èil posto ed i parametri per richiamare la funzione del colore

codice:
    A = Len(txtChat.Text) - Len(strData)
    B = Len(strData)
    Call Colora(A, B, True)
e questa è la funzione colora

codice:
Private Sub Colora(Inizio As Long, Lunghezza As Long, Colore_Verde As Boolean)
    With txtChat
        .SelStart = Inizio
        .SelLength = Lunghezza
        If Colore_Verde = True Then
            .SelColor = Verde
        Else
            .SelColor = Rosso
        End If
    End With
End Sub
dove è che sbaglio???

aiuto???

se non capite il codice fatemelo sapere, ciao e grazie!