Узнать положение окна консоли на экране

<Runtime.InteropServices.DllImport("kernel32.dll", SetLastError:=True, CharSet:=Runtime.InteropServices.CharSet.Auto)> _
Private Function GetConsoleWindow() As IntPtr
End Function

<Runtime.InteropServices.DllImport("user32.dll")> _
Private Function GetWindowRect(ByVal hWnd As Runtime.InteropServices.HandleRef, ByRef lpRect As RECT) As Boolean
End Function

Imports System.Runtime.InteropServices
Imports System.Console
Module Module1
    Public Structure Rect
        Dim Left As Integer
        Dim Top As Integer
        Dim Right As Integer
        Dim Bottom As Integer
    End Structure
    <DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Function GetConsoleWindow() As IntPtr
    End Function
    <DllImport("user32.dll")> _
    Private Function GetWindowRect(ByVal hWnd As HandleRef, ByRef lpRect As Rect) As Boolean
    End Function
    Sub Main()
        Dim r As Rect
        GetWindowRect(New HandleRef(My.Application, GetConsoleWindow), r)
        WriteLine(r.Left.ToString)
        WriteLine(r.Top.ToString)
        WriteLine(r.Right.ToString)
        WriteLine(r.Bottom.ToString)
        ReadLine()
    End Sub
End Module