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