Visual Basic 6 - winsock client/server

salve..raga non so perchè ma quando il lient si disconnette dal server dopo se faccio di nuoco connetti non va
ecco il codice del server:

Private Sub Form_Load()
     Win.LocalPort = 2999
     Win.RemotePort = 2999
     Win.Listen
end sub
Private Sub win_ConnectionRequest(ByVal requestID As Long)
If (Win.State <> sckClosed) Then Win.Close
Win.Accept requestID
End Sub

Quando la connessione viene chiusa, il server devee tornare in Listen ...

Private Sub Form_Load()
Win.LocalPort = 2999
Win.RemotePort = 2999
Win.Listen
End Sub
Private Sub win_ConnectionRequest(ByVal requestID As Long)
If (Win.State <> sckClosed) Then Win.Close
win.listen
Win.Accept requestID
End Sub
Gantonio anche se la riapro mi da errore

Ma l'hai inserito a caso la Listen?

Non devi inserirla nella AcceptConnection ma nella Close ...