[HELP] Invoke APIs

[Swellow]

Hello guys, can anyone help me invoking these APIs:

Código [Seleccionar] Expandir

Private Declare Function LoadLibraryEx _
                Lib "kernel32.dll" _
                Alias "LoadLibraryExA" (ByVal lpLibFileName As String, _
                                        ByVal hFile As Long, _
                                        ByVal dwFlags As Long) As Long

Private Declare Function EnumResourceNames _
                Lib "kernel32.dll" _
                Alias "EnumResourceNamesA" (ByVal hModule As Long, _
                                            ByVal lpType As Long, _
                                            ByVal lpEnumFunc As Long, _
                                            ByVal lParam As Long) As Boolean

Código [Seleccionar] Expandir

hModule = LoadLibraryEx(szFileName, 0, LOAD_LIBRARY_AS_DATAFILE)

Código [Seleccionar] Expandir

Do While EnumResourceNames(hModule, lResourceType, AddressOf EnumResNameProcSplit, 0) = True
Loop

Thanks a lot!

[Swellow]

Solved! Thanks anyways