Как получить hWnd окна стороннего приложения, которое свёрнуто в трей

<DllImport("user32.dll")>
    Public Shared Function IsWindowVisible(ByVal hWnd As IntPtr) As Boolean
    End Function
 
Private Const SW_HIDE As Int32 = 0
Public Const SW_SHOW As Int32 = 5
 
Public Sub IsVisible()
        For Each p As Process In Process.GetProcessesByName("taskmgr")
            If IsWindowVisible(p.MainWindowHandle) Then
                ShowWindow(p.MainWindowHandle, SW_HIDE) 'Свернуть окно в трей, если оно видимое
            Else
                ShowWindow(p.MainWindowHandle, SW_SHOW) 'Развернуть окно из трея
            End If
        Next
    End Sub

<DllImport("user32.dll", EntryPoint:="FindWindow", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindowByClass( _
     ByVal lpClassName As String, _
     ByVal zero As IntPtr) As IntPtr
    End Function
 
    <DllImport("user32.dll", EntryPoint:="FindWindow", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindowByCaption( _
     ByVal zero As IntPtr, _
     ByVal lpWindowName As String) As IntPtr
    End Function
 
    <DllImport("user32.dll", EntryPoint:="GetClassNameW")> _
    Public Shared Function GetClassNameW(ByVal hWnd As IntPtr, <MarshalAs(UnmanagedType.LPWStr)> ByVal lpClassName As System.Text.StringBuilder, ByVal nMaxCount As Integer) As Integer
    End Function
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Integer, ByVal lpWindowName As Integer) As Integer
 
Private Declare Auto Function FindWindowEx Lib "user32" (ByVal parentHandle As Integer, _
                                               ByVal childAfter As Integer, _
                                               ByVal lclassName As String, _
                                               ByVal windowTitle As String) As Integer
 
For Each p As Process In Process.GetProcessesByName("taskmgr")
            Dim classname As New System.Text.StringBuilder(256)
            GetClassNameW(p.MainWindowHandle, classname, 256)
            Dim Caption As New System.Text.StringBuilder(256)
            GetWindowText(p.MainWindowHandle, Caption, Caption.Capacity)
            MsgBox(FindWindow(classname.ToString, Caption.ToString)) 'Получение hWnd окна, зная класс или заголовок окна
            MsgBox(FindWindowEx(Nothing, Nothing, classname.ToString, Caption.ToString)) 'Получение hWnd окна, зная класс или заголовок окна
            Dim GetWindow As Integer = FindWindowByClass(classname.ToString, IntPtr.Zero)
            MsgBox(GetWindow) 'Получение hWnd окна, зная класс окна
            Dim GetHandle As String = FindWindowByCaption(IntPtr.Zero, Caption.ToString)
            MsgBox(GetHandle) 'Получение hWnd окна, зная заголовок окна
        Next