salto de línea con un control richtextbox

josejoa
20 de Septiembre del 2004
Hola a todos,

Si alguién me pudiera ayudar estaría muy agradecido.
No se como puedo solucionar un salto doble de línea al hacer un chat, la primera línea me sale bien pero las otras salen truncadas.Hay dos controles richtextbox uno que envia y otro que recibe. También he probado con vbCrLf pero no hay manera.
El código resumido sería así:

Option Explicit

Private Sub Transmitir()
Dim cola As String

'hacemos un salto de carro si hay algo encima
If recibe.Text <> "" Then recibe.SelText = Chr$(13)

recibe.SelText = "<MiNombre> "
cola = envia.Text
recibe.SelStart = Len(recibe.Text)
recibe.SelText = cola

'limpiar caja de texto
envia.Text = ""
End Sub

Private Sub envia_KeyPress(KeyAscii As Integer)

If envia <> "" Then
If KeyAscii = vbKeyReturn Then
Call Transmitir
End If
End If
End Sub