Someone

Private Sub sckServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    Dim idxConnection As Integer
    sckServer(0).Close                      ' Close request
    idxConnection = idxConnection + 1
    Load sckServer(idxConnection)
    sckServer(idxConnection).Accept requestID           ' Accept connection
End Sub