simple connection problem - I think??? [RESOLVED]

I am trying to establish a connection over 2 computers, but everytime there is a problem

the listening computer has the code

VB Code:

Private Sub Form_Load()
With winsock
[INDENT]call .close[/INDENT]
[INDENT].localport = 10101[/INDENT]
[INDENT]call .listen[/INDENT]
End With
 
Private Sub winsock_ConnectionRequest(ByVal requestID As Long)
With winsock
[INDENT].close[/INDENT]
[INDENT]call .Accept(requestID)[/INDENT]
End With
End Sub

The computer sending the information has this code

VB Code:

Private Sub sck_Connect()
With sck
[INDENT]Call .Close
.RemoteHost = "192.168.1.100"
.RemotePort = 10101
Call .Connect[/INDENT]
End With
End Sub

I am using TCP/IP and what happens when I click a command to connect is the listening computer winsock.state = sckClosing, and the sending computer goes to sck.state = sckError

It is probably something really obvious knowing me but Please help