Private Sub Winsock2_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)
Dim Data As New PropertyBag
Dim Result As String
   Data.WriteProperty "Befehl", "Neustart"
   Result = Send.Send(hWndH, Data)
   End
End Sub

[u]Mein System online

MfG ICE-MAN