程序镶嵌窗体在桌面，右击窗口关闭

窗口句柄 ＝ 寻找顶级窗口 (“Progman”, “Program Manager”) ' 桌面的标题
新父窗口 (取窗口句柄 (), 窗口句柄)

.子程序 __启动窗口_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (信息框 (“确定要关闭程序吗？”, #信息图标 ＋ #是否钮, “提示信息”) ＝ #是钮) ' 右击窗口可以关闭程序
结束 ()