Chat MSComm

ruben_7
06 de Febrero del 2005
Hola, estoy haciendo un chat para 2 PC por medio del puerto serial, a la hora de recibir los datos utilizo el siguiente código:
Private Sub Form_Activate()
Do
DoEvents
Buffer = MSComm1.Input
tbRecibe.Text = tbRecibe.Text & vbCrLf & Buffer
End If
Loop
End Sub

Sin embargo se queda ciclado en ese TextBox ¿alguna idea de cómo hacerlo que funcione mejor sin que se pierda lo que el TextBox ha recibido? Gracias.