743
社区成员
发帖
与我相关
我的任务
分享
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)
'这样就不会出现错误提示了
CancelDisplay=True
End Sub