*** *** Test_Menu.PRG *** Set sysmenu to Set sysmenu automatic Define pad Pad_1 of _MSysMenu prompt '\<Menu 1' Key Alt+M Define pad Pad_2 of _MSysMenu prompt '\<Password' Key Alt+P On pad Pad_1 of _MSysMenu activate popup Popup_1 On selection pad Pad_2 of _MSysMenu Do CheckPass in Test_Menu.prg Define popup Popup_1 margin Define bar 1 of Popup_1 prompt 'Test #1' Define bar 2 of Popup_1 prompt 'Finish' On selection popup Popup_1 ; Do OnSelection with popup(), bar(), prompt() in Test_Menu.prg Define popup Popup_2 margin Define bar 1 of Popup_2 prompt 'Test #2' Define bar 2 of Popup_2 prompt 'Finish' On selection popup Popup_2 ; Do OnSelection with popup(), bar(), prompt() in Test_Menu.prg Procedure OnSelection( tc_Popup, tn_Bar, tc_Prompt ) If (tc_Prompt == 'Finish') Set sysmenu to default else MessageBox( '"' + tc_Prompt + '" on "' + tc_Popup + '" selected' ) endif EndProc Procedure CheckPass Local lc_Password lc_Password = InputBox( 'Enter your password' ) If ( upper(lc_Password) == 'ROBIN' ) On pad Pad_2 of _MSysMenu activate popup Popup_2 Activate menu _MSysMenu pad Pad_2 endif EndFuncRegards