WinSock Connection Request Error!

When I use this code for a winsock connection request:

Code:

---

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

This will fix it:

Code:

---

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    If Winsock1.State <> sckClosed Then Winsock1.Close
    Winsock1.Accept requestID
    txtRecive.Text = txtRecive.Text & vbCrLf & "ChatX: Connection Request Detected."
End Sub

---

Sunny