Problema Client Server Vb6 - Con WindowsXP Prof

[Brothers]

Ho copiato pari pari l'esempio clientTCP serverTCP

dalle MSDN ma quando lo avvio non funziona

ovvero funziona solo la trasmissione di dati dal server al client

e non viceversa qualcuno ha qualche suggerimento??

Io ho pensato che se funziona dal server al client

deve per forza funzionare al contrario.

Mi sbaglio?

Che manchi qualche autorizzazione?

Ma se comunica gia con il server che altra autorizzazione vuole?

provato con

OS WindowsXP prof.

Senza firewall esterno inserito

Senza firewall Windows inserito

Sotto metto il codice.

Ciao

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

Clienttcp

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

Private Sub Form_Load()

tcpClient.RemoteHost = NmCompRem.Text ' TextBox dove inserire un indirizzo

tcpClient.RemotePort = 1001

End Sub

*******

Private Sub cmdConnect_Click()

tcpClient.connect NmCompRem.Text

End Sub

*******

Private Sub txtSendData_Change()

tcpClient.SendData txtSend.Text

End Sub

*******

Private Sub PulsanteXP1_Click()

tcpClient.Close

End Sub

*******

Private Sub tcpClient_DataArrival _

(ByVal bytesTotal As Long)

Dim strData As String

tcpClient.GetData strData, vbString

txtOutput.Text = strData

End Sub

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

Servertcp

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

Private Sub Form_Load()

tcpServer.LocalPort = 1001

tcpServer.listen

frmClient.Show ' Visualizza il form client.

End Sub

*******

Private Sub PulsanteXP1_Click()

tcpServer.Close

End Sub

*******

Private Sub tcpServer_ConnectionRequest _

(ByVal requestID As Long)

If tcpServer.State <> sckClosed Then _

tcpServer.Close

tcpServer.accept requestID

End Sub

*******

Private Sub txtSendData_Change()

If tcpServer.State <> sckClosed Then _

tcpServer.SendData txtSendData.Text

End Sub

*******

Private Sub tcpServer_DataArrival _

(ByVal bytesTotal As Long)

Dim strData As String

tcpServer.GetData strData

txtOutput.Text = strData

End Sub

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