关于连接释放的问题

Question

服务端代码如下：
ServerSocket.Protocol = 0
ServerSocket.LocalPort = 4000
ServerSocket.Bind 4000, "192.100.100.222"
ServerSocket.Listen客户端代码如下（是一个按纽的click事件）:
ClientSock.Protocol = sckTCPProtocol
ClientSock.RemotePort = 4000
ClientSock.LocalPort = 1000
ClientSock.RemoteHost = "192.100.100.222"
ClientSock.Connect注意ServerSocket和ClientSock都是winsock控件
当客户端两次按下按纽的时候 第一次是正常的
第二次就包错了 说什么连接错误之类的
求达人给出个具体的解决方法，我要具体的，不要说一句什么socket.close
那个我试过，没用
谢谢了

Answer 1

连接前先检测Winsock控件的状态    If Winsock1.State = sckConnected Then
        Winsock1.Close
    End If
    '连接