Thank you all!

Lutz' Code works for me! May be it was to hot yesterday...

And i found the Problem in the EXE Code! I switched off the menu by

set sysmenu off

.
With this code the shortcuts ditn't work any more!

Now the code Looks like this, and anythings fine!

_screen.visible = .t.
*CLEAR all
*SET STEP ON
set sysmenu to
set sysmenu off



loForm = createobject('form')
with loForm
	.caption  = 'Test'
	.width    = _screen.width  - 50
	.height   = _screen.height - 50
	.fontname = 'Courier New'
	.fontsize = 10
	.keypreview = .f.

	*.visible = .t.
endwith

set sysmenu on
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) nomenu  window (loForm.name)

set sysmenu to default