Problema con evento SendComplete

Wintermute
12 de Septiembre del 2005
Hola a todos:

Estoy haciendo una aplicación cliente/servidor con Visual Basic 6. Para ello utilizo el control Winsock. Y ha ido funcionando perfectamente hasta ahora, que le ha dado por no saltar el evento SendComplete.

Al ejecutar el WS.SendData mensaje, el mensaje llega al servidor (lo he comprobado), pero no llega a saltar el evento SendComplete ni el SendProgress, con lo cual se me queda parado en el bucle que le tengo puesto:

WS.SendData mensaje
do
doevents
esperar 100
loop until enviocompleto=true

Ni que decir tiene que la variable enviocompleto la pone a True el evento SendComplete.

¿A alguien se le ocurre por qué puede estar ocurriendo ésto?

Muchas gracias de antemano.