ConnectionRequest 事件
      当远程计算机请求连接时出现。 仅适用于 TCP 服务器应用程序。在请求一个新连接时激活该事件。激活事件之后,RemoteHostIP 和 RemotePort 属性存储有关客户的信息。 下面是代码示例Server是一个Winsock控件,假设已经有了Winsock2控件,并且Index为0
Private Sub Server_ConnectionRequest(ByVal requestID As Long)
'如果客户传来请求,先判断是不是有空闲的Winsock2如果有使用它,无则新建一个
On Error Resume Next
  For Each tWinsock In Winsock2'查看所有的Winsock2中是不是有空闲的
   If tWinsock.State <> 7 Then
     tWinsock.Close
     i = tWinsock.Index
     GoTo lls
   End If
  Next
  i = Winsock2.Count
  Load Winsock2(i)
lls:
  Winsock2(i).Accept requestID'用Winsock2来接授联接
End Sub