server.Server.SendTimeout = 900000

Module Module1
    Private server As TcpListener
    Private client As New TcpClient
    Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 43125)
    Private list As New List(Of Connection)
 
    Private Structure Connection
        Dim stream As NetworkStream
        Dim streamw As StreamWriter
        Dim streamr As StreamReader
        Dim nickname As String
    End Structure
 
    Sub Main()
        Console.WriteLine("Der Server wurde gestartet und lauscht auf Port" & _
          "43125..." & vbCrLf)
        server = New TcpListener(ipendpoint)
        server.Start()
 
        While True ' Server wartet auf Verbindung
            client = server.AcceptTcpClient
 
            Dim c As New Connection ' Neue Verbindung wird für neue Connection 
            ' erstellt
            c.stream = client.GetStream
            c.streamr = New StreamReader(c.stream)
            c.streamw = New StreamWriter(c.stream)
 
            c.nickname = c.streamr.ReadLine
 
            'Hinzufügen des Clients zur generischen Liste
            list.Add(c)
            Console.WriteLine(c.nickname & " ist beigetreten...")
            ' Nachricht wird an alle Clients versendet
            SendToAllClients(c.nickname & " ist beigetreten...")
 
            'Prozedur ListenToConnection wird in Thread "t" gestartet
            Dim t As New Threading.Thread(AddressOf ListenToConnection)
            t.Start(c)
            'Status der User wird an alle Clients gesendet, sobald sich ein 
            ' neuer User anmeldet:
            status()
        End While
    End Sub