我不知道为什么调试不过去。

Question

我想通过以下语句穷举FORM1窗口中所有控件、子窗口及其控件的句柄，可老不对。'新建一模块
Private Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As LongPublic Function scanwindow(ByVal newhwnd As Long, ByVal lParam As Long) As Long
  Dim st As String * 255
  MsgBox newhwnd
  Call EnumChildWindows(newhwnd, AddressOf scanwindow, 0)
  scanwindow = True
End Function
在其它处调用scanwindow(form1.hwnd,0)后，老提示addressof scanwindow那一句出错。