Public Function GetChildWindows(ByVal whnd As IntPtr) As IntPtr()
EnumChildWindows(whnd, New EnumWindowsProc(AddressOf Me.EnumerateChildProc), 0)
End Function
Private Function EnumerateChildProc(ByVal Handle As IntPtr, ByVal i As Integer) As Boolean
EnumChildWindows(Handle, New EnumWindowsProc(AddressOf Me.EnumerateSiblingProc), 0)
Return True
End Function
Private Function EnumerateSiblingProc(ByVal Handle As IntPtr, ByVal i As Integer) As Boolean
Dim rec1 As New Rectangle
GetWindowRect(Handle, rec1)
Dim WindowName As Integer = Convert.ToInt32("000103D6", 16) hex from Spy++
Dim int32Handle As String = Handle.ToInt32
WindowFound = Handle
If int32Handle = WindowName Then
MsgBox("Match")
WindowFound = Handle
End If
Return True
End Function