Procedure GetResource(ResNr.l, ResName.s, ResType.l, hModule.l = 0, *ResSize.long = 0) 
  Protected hFind.l, hLoad.l 
  If Not hModule  : hModule = GetModuleHandle_(0) : EndIf 
  If ResNr : ResName = "#" + Str(ResNr) : EndIf 
  hFind = FindResource_(hModule, ResName,ResType) 
  If hFind 
    hLoad = LoadResource_(hModule, hFind) 
    If *ResSize 
      *ResSize\l = SizeofResource_(hModule, hFind) 
    EndIf 
    ProcedureReturn LockResource_(hLoad) 
  EndIf 
EndProcedure