[VB6] Utilizzo di winsock sullo stesso PC

[Dragobianco]

WS è il mio WINSOCK del server

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
        WS.Close
        WS.Accept requestID
End Sub

Questo invece il pulsante che mi fa collegare il client al form server

Private Sub CmdConnect_Click()
    porta = InputBox("Digitare il numero della porta","Richiesta informazioni")
    ipserver = InputBox("Digitare l'ip del server", "Richiesta informazioni")
    ws.Connect ipserver, porta
End Sub

I dati che mandi li mandi con ws.senddata i dati che arrivano li gestisci in WS_DataArrival