.版本 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.取窗口句柄 ()),