获取一个窗体所以控件句柄

Imports System.Text
Imports System.Runtime.InteropServices


Module Module1
    <DllImport("User32.dll")> _
     Private Function EnumChildWindows _
         (ByVal WindowHandle As IntPtr, ByVal Callback As EnumWindowProcess, _
         ByVal lParam As IntPtr) As Boolean
    End Function

    Public Delegate Function EnumWindowProcess(ByVal Handle As IntPtr, ByVal Parameter As IntPtr) As Boolean

    Public Function GetChildWindows(ByVal ParentHandle As IntPtr) As IntPtr()
        Dim ChildrenList As New List(Of IntPtr)
        Dim ListHandle As GCHandle = GCHandle.Alloc(ChildrenList)
        Try
            EnumChildWindows(ParentHandle, AddressOf EnumWindow, GCHandle.ToIntPtr(ListHandle))
        Finally
            If ListHandle.IsAllocated Then ListHandle.Free()
        End Try
        Return ChildrenList.ToArray
    End Function

    Private Function EnumWindow(ByVal Handle As IntPtr, ByVal Parameter As IntPtr) As Boolean
        Dim ChildrenList As List(Of IntPtr) = GCHandle.FromIntPtr(Parameter).Target
        If ChildrenList Is Nothing Then Throw New Exception("GCHandle Target could not be cast as List(Of IntPtr)")
        ChildrenList.Add(Handle)
        Return True
    End Function
    Private Declare Auto Function FindWindow Lib "user32" ( _
                                                             ByVal lpClassName As String, _
                                                             ByVal lpWindowName As String) As Integer

    '主程序
    Sub Main()
        Dim ParenthWnd As IntPtr = FindWindow(Nothing, "Demo1")
        Dim lc = GetChildWindows(ParenthWnd)
        For Each c In lc
            Console.WriteLine(c)
        Next
        'EnumReportApp.Main()
        Console.ReadKey()
    End Sub

End Module