RoboTask forum

Code: Select all

 Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent _
         As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Function EnumChildProc(ByVal lhWnd As Long, ByVal lParam As Long) _
         As Long
            EnumChildProc = True
      End Function

Sub Main

   Dim lRet As Long, lParam As Long
   Dim lhWnd As Long

         lhWnd = 4590448
         lRet = EnumChildWindows(lhWnd, AddressOf  EnumChildProc, lParam)

End Sub