VB6 Server Problem

Hallo,

Ich habe bei meinem Netzwerk.Sharing Programm Folgendes Problem:

Der Server soll vom Clienten angesprochen werden und dann Verbinden.

Das geht auch soweit, jedoch nachdem ich die VErbindung Clietseitig unterbrochen/beendet habe, Kann ich mi Dem Clienten erst wieder nach Server
Neustart Verbinden. Hier meine Codes:


Private Sub Form_Load()
Win.LocalPort = 999
Win.RemotePort = 599
Win.Listen

End Sub

Private Sub Win_Close()
Win.Close
Win.Listen
End Sub


Private Sub win_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
Win.Close
Win.Accept requestID
End Sub


Kan mir vllt irgendjemand Helfen? Ich kann keinen Fehler entdecken.