请问一个关于winSock控件的问题

Question

下面是我计算机上的代码片断'当远程计算机请求连接时出现ConnectionRequest事件。
Private Sub wsServer_ConnectionRequest(ByVal requestID As Long)
    If wsServer.State <> sckClosed Then wsServer.Close   '在此有疑问。
    Call wsServer.Accept(requestID) '仅适用于 TCP 服务器应用程序。在处理 ConnectionRequest 事件时用这个方法接受新连接。
End Sub我使用的协议是TCP协议（UDP协议的用法还不会）。请问在此事件当中的第一行代码为什么在连接状态下还需要关闭一下。然后才能调用Accept方法。
Accept方法仅适用于 TCP 服务器应用程序。在处理 ConnectionRequest 事件时用这个方法接受新连接。（这是MSDN当中的原话，但是我不太理解。本来已经建立了连接，为什么还需要通过此方法再次连接一回？）

Answer 1

怎么没有人啊,再提个问题.在vb当中如何可以得到局域网里所有的机器名称或者ip地址。
我想与谁聊天就与谁聊天通过winsock控件怎么实现呢？