>Sorry, bud it doesen't work...

Perhaps the menu should not instantiated before the form is visible? If you remove .visible=.t. from the with/endwith block?

(i.e. too busy to try myself)

>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?