Introduction - If you have any usage issues, please Google them yourself
TCP Listener
Private server As TcpListener
Private maxConnections As Integer = 10
Private clients(maxConnections) As TcpClient
Private streams(maxConnections) As NetworkStream
Private status(maxConnections) As Boolean
Private clientThreads(maxConnections) As Thread
Private listenThread As Thread
Private boolRun As Boolean
Private lastAllocation As Integer
Private client As Socket