winsock lukker forbindelse ???

Private Sub Winsock1_Close()

End Sub

ja det troede jeg også men den går jo ikke til state 0, når klienten lukker forbindelsen den går til state 8 :(

Prøv sådan:

Private Sub Winsock1_Close()
  Winsock1.Close
    Do Until Winsock1.State = sckClosed
      DoEvents: DoEvents
    Loop
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  'hvis clienten lukker vinduet uden at afbryd forbindelsen først. (error 10054)
  If Number = 10054 Then Call Winsock1_Close
End Sub

ok takker, jeg har ikke lige fået det tjekket men det ser meget rigtigt ud.
takker :)