Sub Main()
        Dim server As TcpListener = Nothing
        server = New TcpListener(ipendpoint)
        server.Start()
        SetText("Der Server läuft!" & vbCrLf & TextBox1.Text)
        Try
            While True
                SetText("Warte auf neue Verbindung ..." & vbCrLf & _
                  TextBox1.Text)
                Dim client = server.AcceptTcpClient
                c.stream = client.GetStream
                c.streamr = New StreamReader(c.stream)
                c.streamw = New StreamWriter(c.stream)
                c.ip = client.Client.RemoteEndPoint.ToString
                Dim t As New Threading.Thread(AddressOf ListenToConnection)
                t.Start(c)
            End While
        Catch ex As Exception
            SetText(ex.ToString & vbCrLf & TextBox1.Text)
        End Try
    End Sub

Private Sub ListenToConnection(ByVal c As Connection)
        Try
            c.nick = c.streamr.ReadLine
            list.Add(c)
            addList(c.nick)
            SetText(c.nick & " joined" & vbCrLf & TextBox1.Text)
            While True
                Dim MSG As String
                MSG = c.streamr.ReadLine
                Dim SplitMSG() As String
                SplitMSG = Split(MSG, MSGSplit)
                Select Case SplitMSG(0)
                End Select
            End While
        Catch ex As Exception            
        End Try
    End Sub