Sub WaitForConnection_Tick ' used to collect all the clients
If Server.Pending = True Then
t = Now 'Used to distinguish between the objects names.
'For each client two objects are created, a Client object and a BinaryFile object.
AddObject("client" & t,"Client")
AddObject("bin" & t,"BinaryFile")
Control("client" & t,Client).New1
Control("client" & t,Client).Value = Server.Accept
Control("bin" & t,Binaryfile).New1(Control("client" & t,Client).GetStream,False)
AlClients.Add(t)
......