'Server Threadfunktion
server = New TcpListener(ipendpoint)
server.Start()
 
While bServerRunning ' Verbindungen annehmen sollange Server läuft
 
   Try
 
      'Neues Clientobjekt erstellen und zum Dictionary für verbundene Clients 
      ' hinzufügen
      connectedClients.Add(iNextID, New cConnectedClient( _
        server.AcceptTcpClient, iNextID))
 
      iNextID = iNextID + 1 'ID erhöhen
 
 
      Catch e As Exception
         '...
      End Try
 
End While

'Auf eingehende Pakete warten
While m_bClientRunning
 
   Try
 
      'Überprüfen ob Client weiterhin verbunden ist
      If m_tcpClient.Connected = False Then
         consoleOutput("Client getrennt")
         m_bClientRunning = False
      Else
 
         'An dieser Stelle Read() vom Networkstream des TcpClients lesen und 
         ' Daten behandeln
 
      End If
 
   Catch e As Exception ' die aktuelle überwachte verbindung hat sich wohl 
   ' verabschiedet.
 
      m_bClientRunning = False
 
   End Try
 
End While
 
'cConnectedClient-Objekt auflösen
shutdownClient()