.版本 2 .程序集 窗口程序集1 .程序集变量 old, 整数型 .子程序 __启动窗口_创建完毕 .子程序 _时钟1_周期事件 .局部变量 a, CURSORINFO a.cbSize ＝ 20 a.ptScreenPos.x ＝ 取鼠标水平位置 () a.ptScreenPos.y ＝ 取鼠标垂直位置 () GetCursorInfo (a) .如果真 (old ≠ a.hCursor) 画板1.清除 (, , , ) old ＝ a.hCursor DrawIcon (GetDC (画板1.取窗口句柄 ()), 5, 5, a.hCursor) .如果真结束