Fui yo quien dio el latazo con los TextBox de colorines, asi que te mando
las instrucciones necesarias para hacer los textos en colores... es muy
facil !!!

Tengamos un Form con un RichTextBox (llamado RTB)
Supongamos tambien que tenemos una base de datos con cuatro campos:
FECHA, CUENTA, HABER_DEBE, IMPORTE
Cuando habrimos el Form este imprimira los datos correspondiente al dia de
ayer.

Sub Form_load()
Dim dBase as Database
Dim rTabla as RecordSet
Dim FechaAyer as Date
Set dBase=OpenDatabase(App.Path & "\Contabilidad.mdb")
FechaAyer=DATE(Daye()-1)
Set rTabla=dBase.OpenRecordset("SELECT * FROM ASIENTOS WHERE FECHA= ' " &
Format(FechaAyer,"dd/mm/yy") & " ' "
While not rTabla.eof
    RTB.SelColor=vbBlue
    RTB.SelText=rTabla("FECHA")
    RTB.SelColor=vbBlack
    RTB.SelText=rTabla("CUENTA")
    IF rTabla("HABER_DEBE")="D" Then
        RTB.SelText=vbGreen
        RTB.SelText=rTabla("IMPORTE")
    Else
        RTB.SelText=vbRed
        RTB.SelText="-" & rTabla("IMPORTE")
        RTB.SelText=vbCrLf
    Endif
    rTabla.MoveNext
Wend

De esta forma veremos que aparece las fechas en color Azul, las cuentas en
color negro y los importes en verde si es al debe o en rojo si es al haber.
para cambiar el tipo de letra solo hay que usar RTB.SelFont.
Para hacer un salto de linea hay que usar vbCrLf
En Resumen:
Mandar los codigos para escribir en un RichTextBox con la opcion
RTB.SelText="Texto"
Para cambiar el color del texto que vas a escribir ahora.
RTB.SelColor=vbBlue
RTB.SelText="Texto en azul"
Para cambiar el font del texto que vas a escribir ahora
RTB.SelFont="Arial"
RTB.SelText="Texto en arial"
Para hacer un salto de linea
RTB.SelText=vbCrLf

Seguro que a mas de uno le servira estas instrucciones.

Salu2
Lspez & Lspez Software, S.L.
lsoft@leader.es
kurro@leader.es
IRQ: 13714251