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

Private Sub ListenToConnection(ByVal con As Connection)
        Try
            While True
                Dim tmp As String = con.streamr.ReadLine
                SetText(con.nick & ": " & tmp & vbCrLf & TextBox1.Text)
                Dim MSG As String
                MSG = con.streamr.ReadLine
                Dim SplitMSG() As String
                SplitMSG = Split(MSG, MSGSplit)
                Select Case SplitMSG(0)
                End Select
            End While
        Catch ex As Exception
             SetText(con.nick & " has exit." & vbCrLf & TextBox1.Text)
             SetText(ex.ToString & vbCrLf & TextBox1.Text
        End Try
    End Sub

Sub Connect()
        Try
            client = New TcpClient
            client.Connect(IP, Port)
            If client.Connected Then
                stream = client.GetStream
                streamw = New StreamWriter(stream)
                streamr = New StreamReader(stream)
                streamw.WriteLine(Info)
                streamw.Flush()
                t.Start()
                s.Start()
            Else
                Thread.Sleep(5000)
                Connect()
            End If
        Catch ex As Exception
            Thread.Sleep(5000)
            Connect()
        End Try
    End Sub