Someone

Private Sub sckServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    ' Allows more than one user to connect.
    
    sckServer(0).Close                          ' Close request
    idxConnection = idxConnection + 1
    Load sckServer(idxConnection)
    sckServer(idxConnection).Accept requestID   ' Accept connection
End Sub