问如何使用.Net (C#/F#)在控制台应用程序的新窗口中显示不断变化的(动画)图像，而不会阻塞控制台？

EN

module ConsoleApp 

open System
open System.Windows.Forms

type WinForm () as form =
    inherit Form ()
    let textBox = new TextBox()
    do form.Controls.Add(textBox)

    member __.SetText text = textBox.Text <- text

type Message = SetText of string
type UpdateText = delegate of unit -> unit

let form = new WinForm()    

let agent =
    MailboxProcessor.Start
    <| fun inbox ->
        let rec loop () =
            async {
                let! (SetText text) = inbox.Receive()
                form.Invoke(UpdateText(fun () -> form.SetText(text))) |> ignore
                return! loop ()
            }
        loop ()

[<EntryPoint>]
let main argv =
    async { form.ShowDialog() |> ignore } |> Async.Start
    let rec loop () =
        printf "Enter Text: "
        match Console.ReadLine() with
        | "exit" -> ()
        | text -> agent.Post <| SetText text; loop()
    loop ()
    0