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