Pues así mismo:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WTEX PIC X(255) VALUE SPACES.
01 ReturnValue PIC S9(9) COMP-5.
PROCEDURE DIVISION.
INVOKE POW-SELF "GetFileName"
USING WTEX
"Seleccione Imágen ..."
"Imágen JPG|*.jpg|Imágen BMP|*.bmp"
POW-CDOPEN
RETURNING ReturnValue
END-INVOKE.
IF ReturnValue = POW-TRUE
MOVE WTEX TO "ImageName" OF IMAGEN
MOVE POW-FALSE TO "Resource" OF IMAGEN
INVOKE IMAGEN "Refresh"
END-IF.
A mi me funciona perfectamente ...
Un saludo