Sub Main()
        Console.WriteLine("Der Server wurde gestartet und lauscht auf Port" & _
          "43125..." & vbCrLf)
        server = New TcpListener(ipendpoint)
        server.Start()
        While True
            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 = decode(c.streamr.ReadLine, "FR55trxZu12mI")
 
            list.Add(c)
            Console.WriteLine(c.nickname & " ist beigetreten...")
            SendToAllClients(c.nickname & " ist beigetreten...")
            'Prozedur ListenToConnection wird in Thread "t" gestartet
            Dim t As New Threading.Thread(AddressOf ListenToConnection)
            t.Start(c)
            For i As Integer = 0 To list.Count - 1
                SendToAllClients(":::::" & (list.Item(i).nickname) & ":::::")
            Next i
 
            client.ReceiveTimeout = 9000000
        End While
    End Sub
 
    Private Sub ListenToConnection(ByVal con As Connection)
        Do
            Try
                ReceivedString = decode(con.streamr.ReadLine, "FR55trxZu12mI") _
                  ' warten bis etwas empfangen wird
                If ReceivedString = "abmelden" Then
                    Console.WriteLine(con.nickname & " hat den Raum" & _
                      "verlassen...")
                    SendToAllClients("User " & list.IndexOf(con).ToString & "" & _
                    "mit dem Namen " & con.nickname & " hat den Raum verlassen")
                    list.Remove(con)
                ElseIf ReceivedString.Contains("ist beigetreten...") Then
                    SendToAllClients("")
                Else
                    If Not ReceivedString = "" Then
                        Console.WriteLine(con.nickname & " - " & TimeOfDay & ":" & _
                          "" & ReceivedString)
                        SendToAllClients(con.nickname & " - " & TimeOfDay & ":" & _
                        "" & ReceivedString)
                    End If
                End If
            Catch
            End Try
        Loop
    End Sub