#COMPILE DLL
FUNCTION MENSAJE() EXPORT AS WSTRING
FUNCTION="Hola Israel"
END FUNCTION
If OpenLibrary(0, "C:\PBWIN10\PRUEBAS\PRUEBAPB.dll")
A$ = PeekS(CallFunction(0, "MENSAJE"),#PB_Unicode)
MessageRequester("RESULTADO",A$,0)
CloseLibrary(0)
EndIf