类似QQ窗口抖动效果

抖动窗口 (到数值 (编辑框1.内容), 到数值 (编辑框2.内容))
按钮1.禁止 ＝ 假

.子程序 抖动窗口
.参数 抖动次数, 整数型
.参数 抖动速度, 整数型

.计次循环首 (抖动次数, )
_启动窗口.移动 (左边 ＋ 10, , , )
延迟 (抖动速度)
处理事件 ()
_启动窗口.移动 (, 顶边 ＋ 10, , )
延迟 (抖动速度)
处理事件 ()
_启动窗口.移动 (左边 － 10, , , )
延迟 (抖动速度)
处理事件 ()
_启动窗口.移动 (, 顶边 － 10, , )
延迟 (抖动速度)
处理事件 ()
.计次循环尾 ()