@Fabio,
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 HWND-SHEET PIC S9(9) COMP-5.
01 HWND-MENU PIC S9(9) COMP-5.
01 MENUINFO.
05 cbSize PIC S9(9) COMP-5.
05 fMask PIC S9(9) COMP-5.
05 dwStyle PIC S9(9) COMP-5.
05 cyMax PIC 9(9) COMP-5.
05 hbrBack PIC S9(9) COMP-5.
05 dwContextHelpID PIC S9(9) COMP-5.
05 dwMenuData PIC 9(9) COMP-5.
PROCEDURE DIVISION.
CALL "GetActiveWindow" WITH STDCALL *> User32.lib
MOVE PROGRAM-STATUS TO HWND-SHEET
CALL "GetMenu" WITH STDCALL USING BY VALUE HWND-SHEET *> User32.lib
MOVE PROGRAM-STATUS TO HWND-MENU
CALL "GetMenuInfo" WITH STDCALL USING BY VALUE HWND-MENU
BY REFERENCE MENUINFO *> User32.lib
ADD 5 TO cbSize *> <----- aqui es donde modificamos el tamaño
CALL "SetMenuInfo" WITH STDCALL USING BY VALUE HWND-MENU
BY REFERENCE MENUINFO *> User32.lib
No olvides de añadir al proyecto la
User32.lib
---------- Post añadido el 21 de octubre de 2021 a las 11:08 ----------
@Fabio, ya nos dirás si ha funcionado
