VB6 FindResource

Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function LoadLibraryEx Lib "kernel32" Alias "LoadLibraryExA" (ByVal lpLibFileName As String, ByVal hFile As Long, ByVal dwFlags As Long) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long

Private Const LOAD_LIBRARY_AS_DATAFILE = &H2

Private Declare Function FindResource Lib "kernel32" Alias "FindResourceA" (ByVal hInstance As Long, ByVal lpName As String, ByVal lpType As String) As Long
Private Declare Function LoadResource Lib "kernel32" (ByVal hInstance As Long, ByVal hResInfo As Long) As Long

Private Declare Function SizeofResource Lib "kernel32" (ByVal hInstance As Long, ByVal hResInfo As Long) As Long
 

Private Sub Form_Load()

  Const p = "C:\Documents and Settings\david\Desktop\2\test.exE"
  'Const p = "D:\_code\iDef\SysAnalyzer\x64Helper.exe"
  
  Dim hModule As Long, hResource As Long
  Const RT_RCDATA = 10&
  
   hModule = GetModuleHandle(p)
   If hModule = 0 Then
      'as datafile: 32bit can load a x64 PE file for resources, x64 bit can load 32bit also..
      hModule = LoadLibraryEx(p, 0&, LOAD_LIBRARY_AS_DATAFILE)
      If hModule = 0 Then
         Debug.Print "LoadLibraryEx error (" & Err.LastDllError;
         Exit Sub
      End If
   End If
   
   'MsgBox GetModuleHandle(p) 'always returns 0 if the file was loaded as datafile..
   
   'find SCRIPT resource in RCDATA directory
   hResource = FindResource(hModule, "SCRIPT", "#10")
   ressize = SizeofResource(hModule, hResource)
   hmem = LoadResource(hModule, hResource)
   
   rva = hmem - hModule
   Debug.Print "FileStart Offset of script resource: " & Hex(rva + 1) & " Size: " & Hex(ressize)
   
End Sub