Public Class Form1
    Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, _
      ByVal lpWindowName As String) As IntPtr
    Declare Auto Function GetWindowRect Lib "User32" (ByVal hWnd As IntPtr, _
    ByRef lpRect As Rect) As Int32
    Public Structure Rect
        Public Left, Top, Right, Bottom As Int32
    End Structure
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim r As Rect
        GetWindowRect(FindWindow("Shell_TrayWnd", String.Empty), r)
        Me.Text = New Rectangle(r.Left, r.Top, r.Right - r.Left, r.Bottom - _
          r.Top).ToString
    End Sub
End Class