Visual Basic 6 - Vb6 - Winsock - mettere in ascolto server su qualsiasi porta...

Sto creando un Client e un Server in Visual Basic 6.0.
Nella form ho inserito due textbox: una per l' ip e l' altro per la scelta della porta di connessione.
Nel command button "connetti" ho inserito il seguente codice:

Dim ip As String
Dim porta As String
ip = Text1.Text
porta = Text2.Text
Winsock1.Close
Winsock1.RemoteHost = ip
Winsock1.RemotePort = porta
Winsock1.Connect ip, porta

Le proprietà del winsock del Client sono le seguenti:
RemotePort = 0
LocalPort = 0

Ora passiamo al server...
Le proprietà del winsock del Server sono le seguenti:
RemotePort = 10
LocalPort = 10

Una volta ke ho avviato il server avvio anche il client e inserisco come ip 127.0.0.1 e come porta 5112, clicco su connetti e mi genera l' errore con stato del winsock su 9...
Ho provato a cambiare le proprietà del winsock del server così:
RemotePort = 0
LocalPort = 10

e anche così:
RemotePort = 0
LocalPort = 10

ma niente mi dà lo stesso errore...
Ho anche provato a scegliere altre porte dal client...
L' errore ke si genera è l' errore personalizzabile da se si clicca due volte sul winsock...

Il problema stà: come faccio a dire al server di mettersi in ascolto sulla porta ke scelgo dal client??

1) il codice devi inserirlo tra i tag (code) (/code)

ho sostitutito le quadre con le tonde

2) Nelle proprietà del winsock lascia tutto come da default e nel client al posto di tutta quella roba mettici:
winsock1.connect text1.text, text2.text

4) Specifica l'errore che ti da

5) Nel server lascia lo stesso il winsock con le sue impostazioni di default, e mettici:
winsock1.LocalPort = 5112 'la porta ke vuoi
winsock1.listen

6) Devi impostare alla creazione la porta da usare...