如果有主程序文件的话，请在主程序文件中写上
set sysmenu off &&在程序执行期间，当 Visual FoxPro 等待诸如 BROWSE、READ 和 MODIFY COMMAND 等命令的键盘输入时，启用 Visual FoxPro 主菜栏。
set sysmenu to &&将主菜单栏恢复为默认设置。如果对主菜单栏或它的菜单做过修改，可发出 SET SYSMENU TO DEFAULT 命令恢复。使用 SET SYSMENU SAVE 可以指定默认设置。
_screen.caption="" &&可加上你的设计的标题
do form 表单名.scx &&调用某个表单，你所需要运行的
read event &&当发出 read events 命令时，Visual FoxPro 启动事件处理。
set sysmenu on &&在程序执行期间废止 Visual FoxPro 主菜单栏。
set sysmenu to defau &&将主菜单栏恢复为默认设置。如果对主菜单栏或它的菜单做过修改，可发出 SET SYSMENU TO DEFAULT 命令恢复。使用 SET SYSMENU SAVE 可以指定默认设置。

保存后，将该主程序文件设置为主文件，试试！！

为了避免单击表单右上角的“×”关闭表单，出现软件无法退出的现象，可在表单的

QueryUnload事件中加入：

if main.runing=.t.

if 1=messagebox('确认退出系统吗？',1,'提示')

thisform.release

else

nodefaul
endif
endif

在环境设置中添加以下语句即可
_Screen.Show
并在运行菜单语句后加
read events

with _screen
visible=.f.
windowstate=2
endwith
set talk off
set escape off
set safety off
set deleted on
set date ansi
do form e:\vfp\１.scx
read events
高手给我看看！这个主程序问题在哪儿？