Everything is fine except the submenu is not normal 3D submenu. Submenu code works fine when i put it in non-Shortcut menu.

define popup trn_pop shortcut from mrow(),mcol() relative in screen title 'Transactions'
define popup cont_sal margin relative

define bar 01 of trn_pop prompt "\<1 - Contract Sales"
    on bar 01 of trn_pop activate popup cont_sal

define bar 01 of cont_sal prompt "\<1 - Contract Sales - Yarn"            
define bar 02 of cont_sal prompt "\<2 - Contract Sales - Conversion"      
define bar 03 of cont_sal prompt "\<3 - Contract Sales - Ready Fabric"    

on selection bar 01 of cont_sal do form cont_sal1
on selection bar 02 of cont_sal do form cont_sal2
on selection bar 03 of cont_sal do form cont_sal3

Thanks in Advance.