Winsock1.Accept requestID gives error :(

[oetje]

This short code gives me an error:

Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
    'accept the request
    Winsock.Accept requestID
End Sub

It say's "invalid operation at current state."

[PRIVATE1]

Originally posted by oetje
This short code gives me an error:

Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
    'accept the request
    Winsock.Accept requestID
End Sub

It say's "invalid operation at current state."

Do this

Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
    'accept the request
    Winsock.Close
    Winsock.Accept requestID
End Sub

[]P

[oetje]

Thanks a lot!