Problema con WINSOCKS (envio/recepción de datos)

[David]

Iniciado por Newcastle

Tengo el mismo problema que el jeje pero con un registro de datos esta aquí en otro post, pero bueno digo aquí esto: ¿Como se hace ese bucle con el DoEvents? (sorry mi ignorancia), y al recibir el otro dato no sustituira el que ya estaba en una variable?

Graxas

Código:

 Private FinishTransfer As Boolean 
Sub Enviar()
FinishTransfer = False
Winsock.SendData "Dato1 a Enviar"
Do
	 DoEvents
While Not FinishTransfer
FinishTransfer = False
Winsock.SendData "Dato2 a Enviar"
Do
	 DoEvents
While Not FinishTransfer
End Sub
Private Sub Winsock_SendComplete()
FinishTransfer = True
End Sub

Nos vemos.....