[VB 6.0] realizzare un proxy

[Delas]

ciao a tutti. niente, mi sono messo in testa di realizzare una specie di mini-proxy (va su un pc server e l'unico client vede le pagine web).
il primo problema l'ho perchè non capisco cosa sbaglio nel ricevere i dati dal client. voglio stamparti in una text box ma non funzia...
allora, se mi collego alla porta in ascolto via telnet mi da errore sull'accettazione della connessione, se lo faccio da browser, niente.
ecco cosa faccio:

Dim Dati As String

Private Sub Command1_Click()
Winsock1.LocalPort = 3128
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Dati
Text1.Text = Dati
End Sub

qualcuno può aiutarmi?
:master:

[Delas]

:master: