Winsock1.Accept requestID gives error :(

This short code gives me an error:

Code:

---

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

---

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

Quote:

---

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

Code:

---

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

Code:

---

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

---

[]P

Thanks a lot!:)