Public Class Form1
    Public Declare Function GetWindowRect Lib "User32" Alias "GetWindowRect" ( _
      ByVal hWnd As IntPtr, ByRef lpRect As Rect) As Int32
    Public Structure Rect
        Public Left As Int32
        Public Top As Int32
        Public Right As Int32
        Public Bottom As Int32
    End Structure
    Dim exrect As Rect
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        For Each p As Process In Process.GetProcesses
            If p.ProcessName = "explorer" AndAlso p.MainWindowTitle <> "" Then
                GetWindowRect(p.MainWindowHandle, exrect)
                MessageBox.Show(exrect.Left.ToString & Environment.NewLine & _
                                exrect.Top.ToString & Environment.NewLine & _
                                exrect.Right.ToString & Environment.NewLine & _
                                exrect.Bottom.ToString)
            End If
        Next
    End Sub
End Class