用VB制作聊天室时遇到的问题：

Question

用WINSOCK控件数组，每多一个客户机就要多一个控件。像你的服务器就要用两个WINSOCK控件
NEW WINSOCK1

Answer 1

你在服务端需要Winsock数组，在连接到来的时候Load()一个socket，
系统中用于侦听的socket应一直处于侦听状态，这样才能接收多个连接
可以接受多个连接请求应这样写：：
Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
   If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      sckServer(intMax).Accept requestID
      Load txtData(intMax)
   End If
End Sub
当你添加winsock控件是，应将其index属性设为0，这样系统认为你的winsock控件是控件数组。
当然这是一个效率极为低下的方案，但如果只有两台客户机的话已经足够满足需要了