DEFINE VARIABLE intResult AS INTEGER NO-UNDO.
ON CHOOSE OF bScreenshot DO:
RUN keybd_event (44, 1, 0, 0, OUTPUT intResult).
END.
PROCEDURE keybd_event EXTERNAL "USER32.DLL":
DEFINE INPUT PARAMETER bVk AS SHORT NO-UNDO.
DEFINE INPUT PARAMETER bScan AS SHORT NO-UNDO.
DEFINE INPUT PARAMETER dwFlags AS LONG NO-UNDO.
DEFINE INPUT PARAMETER dwExtraInfo AS LONG NO-UNDO.
DEFINE RETURN PARAMETER intResult AS LONG NO-UNDO.
END PROCEDURE.