请教枚举资源的问题

VB code

'模块Public Declare Function EnumResourceNames Lib "kernel32" Alias "EnumResourceNamesA" (ByVal hModule As Long, ByVal lpType As Any, ByVal lpEnumFunc As Long, ByVal lParam As Long) As LongPublic Const RT_CURSOR = 1&Public Function EnumNamesFunc(ByVal hModule As Long, ByVal lpType As Long, ByVal lpName As Long, ByVal lParam As Long) As Boolean        Debug.Print lpName        EnumNamesFunc = True     End Function'窗体Private Sub Form_Load()     EnumResourceNames 0&, RT_CURSOR, AddressOf EnumNamesFunc, 0&End Sub

我用专门的资源查看器，看到lpName是3个30003，但是我自己输出却是连续的数字，不知道怎么回事呢，请高手指教下。

[解决办法]
在VB　IDE中按F5，哪个app是指VB　IDE，而不是你编写的程序，要编译执行才行