Fn BackgroundTcpListenerDoWork theSender theEvent =

(

    IPAddress = DotNetClass "System.Net.IPAddress"

    theIPAddress = IPAddress.Parse "127.0.0.1"

    theTcpListener = DotNetObject "System.Net.Sockets.TcpListener" theIPAddress

    theTcpListener.Start()

while not theSender.CancellationPending do

    (

        theSocket = theTcpListener.AcceptSocket()

        theByteStream = DotNetObject "System.Byte[]"

        theSocket.Receive theByteStream

        Encoding = DotnetClass  "System.Text.Encoding"

        theString = Encoding.UTF8.GetString(theByteStream)

        if not theSender.CancellationPending do Execute theString

    )

    theTcpListener.Stop()

)

BackgroundWorker = DotNetObject "System.ComponentModel.BackgroundWorker"

DotNet.AddEventHandler BackgroundWorker "DoWork" BackgroundTcpListenerDoWork

BackgroundWorker.WorkerSupportsCancellation = true

BackgroundWorker.RunWorkerAsync()

/*

BackgroundWorker.CancelAsync()

BackgroundWorker.Dispose()

*/