Use SYS(1500):
Sys(1500, '_MED_CUT', '_MEDIT')
Sys(1500, '_MED_COPY', '_MEDIT')
Sys(1500, '_MED_PASTE', '_MEDIT')
Sys(1500, '_MED_CLEAR', '_MEDIT')
Sys(1500, '_MED_SLCTA', '_MEDIT')
Also, to enable/disable menu options, you can do a check like this:
If Pemstatus(Thisform.ActiveControl...