Visual Basic 6 - dubbio su winsock

Salve, il mio problema riguarda un'applicazione client\server:
dal client clicco un comando, in questo caso "Reset",che tramite winsock si connette al server e mi attiva il reset di quest'ultimo...il problema è che il reset mi funziona sola alla prima chiamata, dopo viene completamente ignorata una mia ulteriore chiamata...
posto il codice

CLIENT

Private Sub cmdReset_Click()
Dim resetta As String
resetta = "Resetta"
If Winsock7.State = sckConnected Then
Winsock7.SendData resetta
End If
End Sub


SERVER
Private Sub Winsock7_DataArrival(ByVal bytesTotal As Long)
'LEGGE I DATI IN ARRIVO E LI VISUALIZZA
Dim resetta As String
Winsock7.GetData resetta
If resetta = "Resetta" Then
Call cmdReset_Click
End If
Winsock7.Close
End Sub

bè nn saprei che dirti...

magari mostra il codice che usi in cmdReset...

quando il server ricevete un dato, poi chiude la connessione

Winsock7.close

dopo per poter ricomunicare hai bisogno che il server si rimetta in Listen, quindi devi ristabilire la connessione.
La funzione cmdReset_Click() del server è uguale a quella del client?