Private tcpListenerThread As Thread
    Private tcpListener As TcpListener
 
 
    Private Sub StartTcpListener()
        tcpListener = New TcpListener(IPAddress.Any, 12345)
        tcpListener.Start()
        tcpListenerThread = New Thread( _
            Sub()
                RunTcpListenerThreadThread(tcpListener)
            End Sub)
        tcpListenerThread.Start()
 
    End Sub
 
    Private Sub RunTcpListenerThreadThread(listener As TcpListener)
        Try
            Do While True
                Dim tcp As TcpClient = listener.AcceptTcpClient()
                Debug.WriteLine("Accepted")
                ' den tcp-client verarbeiten....
                'tcp.Close()
            Loop
        Catch ex As SocketException
            'Vermutlich wurde .Stop aufgerufen
            Debug.WriteLine(ex.ToString())
        End Try
    End Sub
 
    Private Sub StopTcpListener()
        tcpListener.Stop() 'Listening beenden
        tcpListenerThread.Join() 'Auf Threadende warten
    End Sub

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

Try
 
     client = server.AcceptTcpClient
 
Catch ex As Exception
 
     If ServerThread.ThreadState=ThreadState.Stopped Then
	Log("Server STOP")
	Exit While
     End If
 
End Try

serverRunning = true
 
do
 if not serverRunning then exit do
 
 client = server.AcceptCilent()
loop