​Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Windows.Automation
Public Class Form1
    <DllImport("user32.DLL")>
    Public Shared Function FindWindowEx(ByVal hwndParent As IntPtr, ByVal _
      hwndChildAfter As IntPtr, ByVal lpszClass As String, ByVal lpszWindow As _
      String) As IntPtr
    End Function
    <DllImport("user32.dll")>
    Public Shared Function EnumWindows(lpEnumFunc As EnumWindowsProc, lParam As _
      IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
    Public Delegate Function EnumWindowsProc(hWnd As IntPtr, lParam As IntPtr) _
      As Boolean
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Public Shared Function GetClassName(hWnd As IntPtr, lpClassName As _
      StringBuilder, nMaxCount As Integer) As Integer
    End Function
    Public Function GetDesktopHandle() As IntPtr
        Dim DesktopHandle As IntPtr = IntPtr.Zero
        EnumWindows(Function(WorkerW_Handle, OptionalParameter)
                        Dim HandleToString = New StringBuilder(256)
                        GetClassName(WorkerW_Handle, HandleToString, _
                          HandleToString.Capacity)
                        If HandleToString.ToString = "WorkerW" Or _
                        HandleToString.ToString = "Progman" Then
                            Dim Attachment_Folder As IntPtr = FindWindowEx( _
                            WorkerW_Handle, IntPtr.Zero, "SHELLDLL_DefView", _
                            Nothing)
                            If Attachment_Folder <> IntPtr.Zero Then
                                Dim Desktop_Folder As IntPtr = FindWindowEx( _
                                  Attachment_Folder, IntPtr.Zero, _
                                  "SysListView32", "FolderView")
                                If Desktop_Folder <> IntPtr.Zero Then
                                    DesktopHandle = Desktop_Folder
                                    Return False ' False bedeutet das der 
                                    ' Desktop gefnden wurde und die Suche 
                                    ' beendet ist.
                                End If
                            End If
                        End If
                        Return True ' Desktop wurde noch nicht gefunden. Die 
                        ' Suche fortsetzen.
                    End Function, IntPtr.Zero)
        Return DesktopHandle
    End Function
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim el As AutomationElement = AutomationElement.FromHandle( _
        GetDesktopHandle())
        Dim walker As TreeWalker = TreeWalker.ContentViewWalker
        Dim child As AutomationElement = walker.GetFirstChild(el)
        While child IsNot Nothing
            ListBox1.Items.Add(child.Current.Name)
            ' MsgBox(child.Current.ClassName)
            child = walker.GetNextSibling(child)
        End While
    End Sub
End Class