def var li_hwnd as int no-undo.
procedure GetParent external "user32.dll":
def input parameter hwnd as long no-undo.
def return parameter WinLong as long no-undo.
end procedure.
procedure SetWindowLongA external "user32.dll":
def input parameter hwnd as long no-undo.
def input parameter nIndex as long no-undo.
def input parameter dwNewLong as long no-undo.
end procedure.
procedure SetWindowPos external "user32.dll":
def input parameter hwnd as long.
def input parameter InsAfter as long.
def input parameter x as short.
def input parameter y as short.
def input parameter cx as short.
def input parameter xy as short.
def input parameter uFlags as unsigned-short.
end procedure.
run GetParent({&WINDOW-NAME}:hwnd, output li_hwnd).
run SetWindowLongA(li_hwnd, -16, -1811939132).
run SetWindowLongA(li_hwnd, -20, 327937).
run SetWindowPos(li_hwnd, 0, 0, 0, 0, 0, 2 + 1 + 4 + 32).