winsock第二次调用为什么出错？

执行一次，winsock1.close后，
cmdTest_click里面，到winsock1.remotehost="127.0.0.1"就报错：实时错误"40020"；另，有时第一次执行时，
在Winsock1.GetData bytData, vbByte, bytesTotal处也会报错：实时错误"40006"，但不是每次都会出现哪位有winsock比较完整的安全检测，错误控制的源码，这个东西快烦死我了，不知道什么时候才能做完。