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."