Ho scritto una routine che mi permette tramite due parametri di scrivere in una richtextbox un determinato testo con un determinato colore...

Public Sub Writelog(ByVal text As String, ByVal Color As Color)


Dim Start As Int64

frmLOG.rtbLOG.Text = frmLOG.rtbLOG.Text & vbCrLf & text
Start = InStr(frmLOG.rtbLOG.Text, text) - 1
frmLOG.rtbLOG.Select(Start, text.Length)
frmLOG.rtbLOG.SelectionColor = Color

End Sub
La procuedura funziona o meglio...riesce a colorare il testo...ma mi colora solamente l'ultima linea inserita nella RichTB mi spiego meglio...

WriteLog("Prova",color.red)

avro come risultato il testo "prova scritto in rosso"....ora guardate...

WriteLog("Prova1",color.red)
WriteLog("Prova2",color.red)

avro "Prova1" in nero e "prova2" in rosso!!!!

Buona serata!