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"))