Problema con el evento SendComplete

[mute]

La verdad es que se me hace extraño que, habiéndolo comentado, pueda interferir. Pero bueno, este es el código de "esperar":

'
' SIPNOSIS: esperar
'
' ENTRADA:
' Ningún argumento de entrada
'
' SALIDA:
' Ningún argumento de salida
'
' FUNCIONAMIENTO: Procedimiento que incorpora ciclos de espera de un tiempo
' determinado.
'_________________________________________________ ___________________________________

Public Sub esperar(ByVal numMiliSeg As Long)
Dim TmFin As Long
Dim TmEspera As Long 'Valor de la espera (en Mseg)

TmEspera = numMiliSeg
TmFin = GetTickCount + TmEspera
Do While GetTickCount < TmFin
DoEvents
Loop
End Sub


Este es el código del envío:

Public Function enviar(Socket As Winsock, mensaje As String) As Integer
On Error GoTo manejoerror
If (Socket.State = sckOpen Or Socket.State = sckConnected) Then
Socket.SendData mensaje

Do
' esperar 100
DoEvents
Loop While (Not enviocompleto)
enviocompleto = False
End If

enviar = 0
Exit Function
manejoerror:
enviar = 1
Exit Function
End Function


Y este el del SendComplete (trivial):

Private Sub WSFaplicacion_SendComplete()
enviocompleto = True
End Sub

Si te hace falta algo más, dímelo.