EnumChildWindows和WindowFromPoint的问题，熟悉枚举子窗体的老师们进来指导一下．

Question

我是个ＶＢ新手，目前正自学到句柄这一块的知识，对这个问题，我研究了好多天了，也看了不少的网页．一点也没弄明白．
问题１：WindowFromPoint　是不是ＡＰＩ函数？它的作用是什么．和EnumChildWindows有什么关系？
问题２：EnumChildWindows　它的原理是什么，怎么用它来枚举遍历．以下是拜读本站一位老师　online(龙卷风)　的代码，太多都没看明白，希望能有师傅能(通俗点)的讲解一下，不胜感激：
使用EnumChildWindows Private   Declare   Function   FindWindow   Lib   "user32.dll "   Alias   "FindWindowA "   (ByVal   lpClassName   As   String,   ByVal   lpWindowName   As   String)   As   Long Private   Sub   Command1_Click() 
Dim   twnd   As   Long 
twnd   =   FindWindow(vbNullString,   "测试enabled ") 
EnumChildWindows   twnd,   AddressOf   EnumChildProc,   ByVal   0& 　'－－本人问：这一句是EnumChildWindows函数的用法吗　作用是什么呢，得到什么值出来？End   Sub 
模块 
Option   Explicit Declare   Function   GetClassName   Lib   "user32 "   Alias   "GetClassNameA "   (ByVal   hwnd   As   Long,   ByVal   lpClassName   As   String,   ByVal   nMaxCount   As   Long)   As   Long 
Declare   Function   EnumChildWindows   Lib   "user32 "   (ByVal   hWndParent   As   Long,   ByVal   lpEnumFunc   As   Long,   ByVal   lParam   As   Long)   As   Long Public   Function   EnumChildProc(ByVal   hwnd   As   Long,   ByVal   lParam   As   Long)   As   Long 　　'－－－－本人问： EnumChildProc 是不是ＡＩＰ函数呢，他为什么要声明，他的作用是什么，原理是什么，和 EnumChildWindows   有什么关系．
        
        Dim   lpClassName   As   String 
        Dim   retval   As   Long 
        Dim   mname   As   String 
        Dim   i   As   Integer 
        
        lpClassName   =   Space(256) 
        retval   =   GetClassName(hwnd,   lpClassName,   256) 
        i   =   InStr(1,   lpClassName,   Chr(0)) 　　'--本人问，这句的意思是什么，以
前只用过　instr ("12345","1")　返回1.　而这句里面怎么有三个参数在里面．        mname   =   Left(lpClassName,   i   -   1) 
        Form1.List1.AddItem   hwnd   &   "       "   &   mname 
        EnumChildProc   =   1 　　'==这句又是什么意思啊　怎么　(EnumChildProc   =   1）？
End   Function 
我是新手，分不多额．

Answer 1

我专学的API那个值看了点，好像跟多文档多线程，额，挺后期的，你上百度上面搜索下那个函数名字，有百度文库，还有SOSO文库的，我都是不懂就上网问问的

Answer 2

使用EnumChildWindows  Private Declare Function FindWindow Lib "user32.dll " Alias "FindWindowA " (ByVal lpClassName As String, ByVal lpWindowName As String) As Long  Private Sub Command1_Click()  
Dim twnd As Long  
twnd = FindWindow(vbNullString, "测试enabled ")  
EnumChildWindows twnd, AddressOf EnumChildProc, ByVal 0& 　'－－本人问：这一句是EnumChildWindows函数的用法吗　作用是什么呢，得到什么值出来？
'含义是：EnumChildWindows说：我要去找twnd的子窗口，找到后[color=#99CC00]EnumChildProc你来瞧瞧
'--EnumChildProc叫回调函数,下面模块中定义的[/color]
End Sub  
模块  
Option Explicit  Declare Function GetClassName Lib "user32 " Alias "GetClassNameA " (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long  
Declare Function EnumChildWindows Lib "user32 " (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long  Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long 　　'－－－－本人问： EnumChildProc 是不是ＡＩＰ函数呢，他为什么要声明，他的作用是什么，原理是什么，和 EnumChildWindows 有什么关系．
'[color=#008000]EnumChildProc 处理EnumChildWindows找到的窗口 [/color] 
  Dim lpClassName As String  
  Dim retval As Long  
  Dim mname As String  
  Dim i As Integer  
    
  lpClassName = Space(256)  
  retval = GetClassName(hwnd, lpClassName, 256)  
  i = InStr(1, lpClassName, Chr(0)) 　　'--本人问，这句的意思是什么，以
前只用过　instr ("12345","1")　返回1.　而这句里面怎么有三个参数在里面．
第一个参数表示从什么位置开始找，不指定就从第一个开始
  mname = Left(lpClassName, i - 1)  
  Form1.List1.AddItem hwnd & " " & mname  
  EnumChildProc = 1 　　'==这句又是什么意思啊　怎么　(EnumChildProc = 1）？
[color=#008000]EnumChildProc处理完了一个窗口，他告诉喊它的EnumChildWindows继续找下一个---EnumChildProc = 0,不找了！[/color]
End Function 
[/code]

Answer 3

谢谢　c_cyd2008
谢谢你给我的具体分析　
结贴了