Private Sub Winsock1_Error(ByVal Number%, Description$, ByVal sCode&, ByVal Source$, ByVal HelpFile$, ByVal HelpContext&, CancelDisplay As Boolean)
    Debug.Print"错误号：" & Number & " 描述：" & Description
End Sub