' Place a new Winsock array exclusively for Clients - wskClients(0) is 
      ' the default
 
      Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
 
       Dim wskClients() As Long
 
       wskClients = Array()
 
 
 
          newClient = [F]wskClients[/F].UBound + 1 ' instead of .Count + 1
 
          Load wskClients(newClient)
 
 
 
          wskClients(newClient).Accept requestID 'accept the connection with 
          ' our new Winsock
 
         ' So the Server continues to listen for more clients
 
      End Sub