怎样获取当前运行的子程序名？请大家帮帮忙！急！！！

Question

怎样获取当前运行的子程序？

Answer 1

【声明】
Public EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
【说明】
枚举窗口列表中的所有父窗口（顶级和被所有窗口）
【返回值】
Long，非零表示成功，零表示失败
【参数表】
  lpEnumFunc -----  Long，指向为每个子窗口都调用的一个函数的指针。用AddressOf运算符获得函数在标准模式下的地址  lParam ---------  Long，在枚举期间，传递给dwcbkd32.ocx定制控件之EnumWindows事件的值。这个值的含义是由程序员规定的
【其它】
我的理解——在随vb5同时提供的api32.txt文件中，找不到这个函数【声明】
Public Declare Function EnumChildWindows Lib "user32" Alias "EnumChildWindows" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
【说明】
为指定的父窗口枚举子窗口
【返回值】
Long，非零表示成功，零表示失败
【参数表】
  hWndParent -----  Long，欲枚举子窗口的父窗口的句柄  lpEnumFunc -----  Long，为每个子窗口调用的函数的指针。用AddressOf运算符获得函数在一个标准模块中的地址  lParam ---------  Long，在枚举期间，传递给dwcbkd32.ocx定制控件之EnumWindows事件的值。这个值的含义是由程序员规定的。（原文：Value
  that is passed to the EnumWindows event of the dwcbkd32.ocx custom control during
  enumeration. The meaning of this value is defined by the programmer.）
【其它】
在vb4下要求dwcbkd32.ocx定制控件。子窗口下属的子窗口也可由这个函数枚举