Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
  lpClassName As String, ByVal lpWindowName As String) As Integer   
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
    ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, _
    ByVal lpsz2 As String) As Integer   
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Integer, _
    ByVal nCmdShow As Integer) As Integer   
 
    Dim 1Wnd As IntPtr = 0  
    Dim 2Wnd As IntPtr = 0  
    Dim 3Wnd As IntPtr = 0  
    Dim TrayWnd As IntPtr = 0  
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load   
        1Wnd = FindWindow("Shell_TrayWnd", vbNullString)   
        2Wnd = FindWindowEx(1Wnd, 0, "TrayNotifyWnd", vbNullString)   
        3Wnd = FindWindowEx(2Wnd, 0, "SysPager", vbNullString) 
        TrayWnd = FindWindowEx(3Wnd, 0, "ToolbarWindow32", vbNullString) 
    End Sub