如何在使用allocconsole创建的控制台中输出unicode文本

Question

我已经使用allocconsole() API函数创建了一个控制台。 我想输出Unicode文本。 我写了以下代码

    AllocConsole()
    Console.Title = "XX_Console"
    Dim hWnd As Integer = ObtainWindowHandle("XX_Console") 
    AllocConsole()
    Console.OutputEncoding = System.Text.Encoding.UTF8
    Console.InputEncoding = System.Text.Encoding.UTF8
    Console.Write(ChrW("4304"))

没有任何帮助。

请提供任何帮助。