“主程序.prg”中部分代码如下：
_SCREEN.picture="901537.jpg" && 屏幕中加入背景图片
zoom window screen max && 主窗口最大化
问题请教：主窗口最大化后，设置的背景图片就如xp系统的桌面背景设置成“平铺”时的效果一样，很不美观。那么，如何才能使其中的背景图片达到xp系统桌面背景设置中的“拉伸”效果（即变比填充）呢？
（我指的是如何利用顶层表单技术以外的方法实现）
Screen.Picture 没有伸缩属性可设置，只能在 Screen 上加一个 image 控件来显示图片：
_Screen.AddObject('background', 'Image')
_Screen.background.Picture = Getpic() && 或者写你自己的图片文件名
_Screen.background.Visible = .T.
_Screen.background.Stretch = 2 && 不想变形就设为 1
_Screen.background.Move(0,0,_Screen.Width,_Screen.Height)
1、在表单设置里，把图片先设置成与表单大小。
2、把图片的Anchor属性设置成：15
这样，图片就能自动随表单变化了。