Listing 1

string ls_text

unsignedlong lul_dll_handle

//fill the string variable with spaces - ALWAYS needed 

when working with Windows APIs

ls_text = Space(512)

//load the DLL into memory

lul_dll_handle = This.LoadLibraryA("C:\program files\my app\french.dll")

//make sure the DLL loaded properly

IF lul_dll_handle > 0 THEN 

//fetch a resource string from it, e.g. string # 1045 

This.LoadStringA(lul_dll_handle,1045,ls_text,512) 

//unload the DLL from memory 

This.FreeLibrary(lul_dll_handle)

END IF

//display the text for resource IDs

Messagebox("TEST",ls_text)