Pues para eso ya se las tienen que ingeniar ustedes, dependiendo de lo que esten haciendo
por ejemplo en este caso:
Private Sub wcliente_DataArrival(ByVal bytesTotal As Long)
Dim recibido As String
wcliente.GetData recibido
txtconversacion.SelColor=RGB(0,0,250)
txtconversacion.Text = txtconversacion.Text + Chr(13) + recibido
End Sub
se podria hacer los siguiente:
Private Sub wcliente_DataArrival(ByVal bytesTotal As Long)
Dim recibido As String
wcliente.GetData recibido
txtconversacion.Text = txtconversacion.Text + Chr(13) + recibido
txtconversacion.SelStart = len(txtconversacion) - bytesTotal
txtconversacion.SelLength = bytesTotal
txtconversacion.SelColor=RGB(0,0,250)
End Sub
Con el codigo anterior se le aplica el formato solo a la cadena que llego por el Winsock.