El Evento Close si se produce en el Server(Winsock)

[Eternal Idol]

Tu servidor no es un ejemplo valido porque VOS producis el evento a mano haciendo esto:

Código:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub