Question for Basic Script

[Aselalagor]

why this script not working?
error on AddressOf...

Code: Select all

 Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent _
         As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Function EnumChildProc(ByVal lhWnd As Long, ByVal lParam As Long) _
         As Long
            EnumChildProc = True
      End Function

Sub Main

   Dim lRet As Long, lParam As Long
   Dim lhWnd As Long

         lhWnd = 4590448
         lRet = EnumChildWindows(lhWnd, AddressOf  EnumChildProc, lParam)

End Sub

[Oleg]

It seems you can not pass the function address as parameter on this BASIC engine.