howcome when i try to connect with my winsock client... to my server, it keeps giving me a stupid error!!! it keeps saying invalide operation at current state!! error 40020

please respond fast!!!

client code

Option Explicit

Private Sub cmdConnect_Click()
On Error Resume Next
sock.Connect txtIP, txtPort
End Sub

Private Sub cmdDisconnect_Click()
sock.Close
End Sub

Private Sub sock_Connect()
MsgBox "hi", vbOKOnly, "hi"
End Sub


server code

Option Explicit

Private Sub Form_Load()

If sock.State <> sckClosed Then
sock.Close
End If
sock.Listen
End Sub

Private Sub sock_Connect()
MsgBox "hi", vbOKOnly, "hi"
End Sub

Private Sub sock_ConnectionRequest(ByVal requestID As Long)

sock.Accept requestID
End Sub