WinSock Connection Request Error!

[Pikachu_902]

When I use this code for a winsock connection request:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept requestID
txtRecive.Text = txtRecive.Text & vbCrLf & "ChatX: Connection Request Detected."
End Sub

I get runtime error 40020:
Invalid operation at current state

when I hit debug it highlights that code snippet up there! HELP