VB envía un problema de contenido del paquete WPE

DoEvents

NowTime = Int(CDbl(Now)) Timer / 86400

Si NowTime - t gt = 3 Entonces

MsgBox "Tiempo de espera de conexión"

Salir de Sub

Finalizar si

Bucle

Atenuar NowTime como doble

Hacer Hasta Winsock1.