Sub ServerStart()
        Log("Server START")
        server = New TcpListener(ipendpoint)
        server.Start()
 
        While True ' wir warten auf eine neue verbindung...
            Try
                Try
                    client = server.AcceptTcpClient   '<----- hier bleibt er 
                    ' hängen
                Catch ex As Exception                 '       auch nach 
                ' Application:Exit
 
 
                    MsgBox(ex.Message)
 
                End Try
 
                Dim c As New Connection
                c.stream = client.GetStream
                c.streamr = New StreamReader(c.stream)
                c.streamw = New StreamWriter(c.stream)
                Dim data() As String = (c.streamr.ReadLine).Split(Chr(126))
                c.cmd = data(0)
                c.nick = data(1)     
                c.pass = data(2)
                list.Add(c)
                Log(c.nick + " LogIn") 
 
                th.Start(c)
            Catch ex As Exception
                Log("Server STOP")
                Exit While
            End Try
        End While
    End Sub