Visual Basic.NET - ¿Es posible detectar ventanas abiertas en windows y su posicion?

Imports System.Runtime.InteropServices

Imports System.Diagnostics

Public Class Form1

    Dim ventanaName As String

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        For Each p As Process In Process.GetProcesses

            If p.MainWindowTitle = Nothing Then

            Else

                ListBox1.Items.Add(p.MainWindowTitle)

            End If

        Next

        ventanaName = ListBox1.SelectedItem

    End Sub

    <DllImport("user32.dll", EntryPoint:="FindWindowW")>

    Private Shared Function FindWindowW(<MarshalAs(UnmanagedType.LPTStr)> ByVal lpClassName As String, <MarshalAs(UnmanagedType.LPTStr)> ByVal lpWindowName As String) As IntPtr

    End Function

    <DllImport("user32.dll", EntryPoint:="GetWindowRect")>

    Private Shared Function GetWindowRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As <MarshalAs(UnmanagedType.Bool)> Boolean

    End Function

    <StructLayout(LayoutKind.Sequential)>

    Private Structure RECT

        Public left, top, right, bottom As Integer

    End Structure

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim hWnd As IntPtr = FindWindowW(Nothing, ventanaName) '"untitled - notepad")

        If hWnd <> IntPtr.Zero Then

            Dim wr As New RECT

            GetWindowRect(hWnd, wr)

            MessageBox.Show("The window position is - X=" & wr.left.ToString & "  Y=" & wr.top.ToString)

        Else

            MessageBox.Show("Window not found")

        End If

    End Sub

End Class