Buenas!!

Vereis, estoy creando una aplicacion en VB en plan Cliente/Servidor. El problema es que cada vez que me conecto, el servidor cierra la conexion automaticamente, o eso es lo que dice el cliente.

Os dejo el codigo que tengo, para ver si vosotros veis el error, porque lo que soy yo, no lo veo (Se trata del servidor)

Private Sub Command2_Click()
On Error Resume Next
Ws.Close
Ws.LocalPort = Text5.Text
Ws.Listen
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "Conectando...." & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub

------------------------------------------------------------------------

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Ws.Close
Ws.Accept requestID
Text1.Text = "***Se ha conectado, estas listo para jugar??***" & vbCrLf
Text1.Text = Text1.Text & "***Direccion IP:" & Ws.RemoteHostIP & vbCrLf

End Sub
------------------------------------------------------------------------

Private Sub ws_close()
Ws.Close
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & vbCrLf & "*** Conexion cerrada por tu colega***" & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub
Esta es la parte de las conexiones, en el Servidor me pone en el text1 "Conectando..."
Intento conectar con un cliente (que he creado) y en el text1 del cliente me sale "Conexion establecida!!" y luego "Conexion cerrada por RaidMan"

Pues nada... ahi os dejo el codigo, y si veis algo raro, decidmelo


Un saludo y gracias por todo