I have checked all the thread you pointed and tried putting the code below above my shortcut menu code. I made all the shortcut menu in *.prg not in *.mpr but it doesn't change anything, so please in which part I have to put the code? (before this, I made the menu shortcut in prg and put your code above it but it generated an error so then I put your code above my shortcut menu and copied all of them and paste them to my command button click event but why it doesn't change a thing? Please help me more. Thank you.

Cmdcallmenu.click

Thisform.ScaleMode = 0 && Foxels
lnPosX = This.Left + This.Width
lnPosY = This.Top + This.Height
Thisform.ScaleMode = 3 && Back to Pixels

DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF shortcut PROMPT "\ PICTURE "graph12.ico"
DEFINE BAR 2 OF shortcut PROMPT "\-"
DEFINE BAR 3 OF shortcut PROMPT "\ PICTURE "06.ico"
DEFINE BAR 4 OF shortcut PROMPT "\-"
DEFINE BAR 5 OF shortcut PROMPT "\ PICTURE "42.ico"

DEFINE BAR 6 OF shortcut PROMPT "\-"
DEFINE BAR 7 OF shortcut PROMPT "Qui\ PICTURE "37.ico"
DEFINE BAR 8 OF shortcut PROMPT "\-"
DEFINE BAR 9 OF shortcut PROMPT "\ PICTURE "08.ico"
DEFINE BAR 10 OF shortcut PROMPT "\-"
DEFINE BAR 11 OF shortcut PROMPT "Qui\ PICTURE "misc04.ico"

ON SELECTION BAR 1 OF shortcut do form business.scx
ON SELECTION BAR 3 OF shortcut do form quisbis.scx
ON SELECTION BAR 5 OF shortcut do form lihat_sh.scx
ON SELECTION BAR 7 OF shortcut do form quizhap.scx
ON SELECTION BAR 9 OF shortcut do form medical.scx
ON SELECTION BAR 11 OF shortcut do form quismed.scx

ACTIVATE POPUP shortcut


regards

Syah N