本人新手，在网上找了一段VB的代码，想改成VB.NET
涉及到回调，一直改不正确
原语句
EnumChildWindows twnd, AddressOf EnumChildProc, ByVal 0&
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
我改成了
EnumChildWindows(twnd, AddressOf EnumChildWindowsCallBack, 0&)
Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Integer, lpEnumFunc As EnumChildWindowsCallBack, ByVal lParam As Integer) As Integer
Public Function EnumChildWindowsCallBack(ByVal hwnd As Integer, ByVal lParam As Integer) As Integer
系统提示
错误1未定义类型“EnumChildWindowsCallBack”。

代码地址
http://bbs.anjian.com/showtopic.aspx?topicid=473800&forumpage=1&page=1#0-ibaidu-1-1326-fdad1b3678b06812f9a48074fb185215

先声明一个委托： Public Delegate Function EnumChildProc(hwnd As Integer, iParam As Integer) As Integer，然后才能使用回掉函数，你回掉函数的参数要和委托完全一致。然后你那个 API 函数需要这样声明： Declare Function EnumChildWindows Lib "user32" (hWndParent As Integer, lpEnumFunc As EnumChildProc, lParam As Integer) As Integer