[VB 6] winsock non accetta la connessione

[Delas]

ciaoz. ecco che faccio:

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

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

quando vado a passare dei dati mi dice "Operazione non valida allo stato corrente" e il debug mi segnala la riga dove accetto la connessione col winsock.. sapete perchè?