.版本 2 .程序集 窗口程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx) .子程序 __启动窗口_创建完毕 ' Public Oldx As Long ' Public Oldy As Long ' Public Newx As Long ' Public Newy As Long ' Public Pnt As POINTAPI 时钟1.时钟周期 ＝ 10 .子程序 _时钟1_周期事件 .局部变量 Oldx, 双精度小数型 .局部变量 Oldy, 双精度小数型 .局部变量 Newx, 双精度小数型 .局部变量 Newy, 双精度小数型 .局部变量 Pnt, POINTAPI .局部变量 incx, 双精度小数型 .局部变量 incy, 双精度小数型 ' Private Sub Timer1_Timer() _启动窗口.获取焦点 () ' Me.SetFocus GetCursorPos (Pnt) Oldx ＝ _启动窗口.左边 Oldy ＝ _启动窗口.顶边 ' 本源码来自三叶资源网(www.sanye.cx) Newx ＝ Pnt.X － 20 Newy ＝ Pnt.Y － 6 ' 调试输出 (Oldx, Oldy, Newx, Newy) incx ＝ (Newx － Oldx) ÷ 20 × 1.35 incy ＝ (Newy － Oldy) ÷ 20 × 1.35 ' 调试输出 (Oldx ＋ incx, Oldy ＋ incy) _启动窗口.移动 (Oldx ＋ incx, Oldy ＋ incy, , ) ' 本源码来自三叶资源网(www.sanye.cx)