i keep getting an error 40020 invalid operation at current state. its a chat program i'm making but i'm just need to get it to connect first. Please help me out asap!!!!


heres the code

client:
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:
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