&GLOBAL-DEFINE CB_SETDROPPEDWIDTH 352
PROCEDURE SendMessageA EXTERNAL "USER32.DLL":
DEFINE INPUT PARAMETER hwnd AS LONG NO-UNDO.
DEFINE INPUT PARAMETER wmsg AS LONG NO-UNDO.
DEFINE INPUT PARAMETER wparam AS LONG NO-UNDO.
DEFINE INPUT PARAMETER lparam AS LONG NO-UNDO.
DEFINE RETURN PARAMETER rc AS LONG NO-UNDO.
END PROCEDURE.
DEFINE VARIABLE res AS INTEGER NO-UNDO.
RUN SendMessageA (INPUT cb-handle:HWND,
INPUT {&CB_SETDROPPEDWIDTH},
INPUT drop-down-list-width-pixels,
INPUT 0, /* zero */
OUTPUT res).