works with me:

*CLEAR all
*SET STEP ON
SET SYSMENU TO

loForm = CREATEOBJECT('CodeEditForm')
WITH loForm
 .CAPTION  = 'Test'
 .WIDTH    = _SCREEN.WIDTH  - 50
 .HEIGHT   = _SCREEN.HEIGHT - 50
 .FONTNAME = 'Courier New'
 .FONTSIZE = 10
 .KEYPREVIEW = .F.

 .VISIBLE = .T.
ENDWITH


define popup _edit  MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR _med_cut OF _edit PROMPT "Cu\<t" KEY CTRL+X, "Ctrl+X"
DEFINE BAR _med_copy OF _edit PROMPT "\<Copy" KEY CTRL+C, "Ctrl+C"
DEFINE BAR _med_paste OF _edit PROMPT "\<Paste" KEY CTRL+V, "Ctrl+V"

lcPath = GETFILE()

MODIFY COMMAND (lcPath) WINDOW (loForm.NAME)

SET SYSMENU TO DEFAULT


DEFINE CLASS CodeEditForm AS FORM
ENDDEFINE

Edit:

See http://www.tech-archive.net/Archive/Fox/microsoft.public.fox.programmer.exchange/2006-10/msg00584.html

>Sorry, bud it doesen't work...
>
>Here is some code to test:
>
>

>set step on
>set sysmenu to
>
>loForm = createobject('CodeEditForm')
>with loForm
>	.caption  = 'Test'
>	.width    = _screen.width  - 50
>	.height   = _screen.height - 50
>	.fontname = 'Courier New'
>	.fontsize = 10
>	.keypreview = .t.
>
>	.visible = .t.
>endwith
>
>
>define menu _Bearbeiten bar in (loForm.name) font 'arial', 10 color scheme 3
>define pad _EditP of _Bearbeiten prompt "Edit"  color scheme 3
>
>on pad _EditP of _Bearbeiten activate popup _Edit
>define popup _Edit margin relative shadow color scheme 4
>
>define bar _med_cut of _Edit prompt 'cut' key CTRL+X, "Ctrl+X" PICTRES _med_cut
>define bar _med_copy of _Edit prompt 'copy' key CTRL+C, "Ctrl+C" PICTRES _med_copy
>define bar _med_paste of _Edit prompt 'paste' key CTRL+V, "Ctrl+V" PICTRES _med_paste
>activate menu _Bearbeiten
>
>lcPath = getfile()
>
>modify command (lcPath) window (loForm.name)
>
>set sysmenu to default
>
>
>define class CodeEditForm as form
>enddefine
>
>

>
>Any suggestions?