请教高手们一个关于易语言画线的问题。

---

.版本 2

.程序集 窗口程序集1

.子程序 _画板1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

画板1.画直线 (0, 纵向位置, 画板1.宽度, 纵向位置)
画板1.画直线 (横向位置, 0, 横向位置, 画板1.高度)
画板1.清除 (0, 0, 横向位置 － 1, 纵向位置 － 1)
画板1.清除 (0, 纵向位置 ＋ 1, 横向位置 － 1, 画板1.高度 － 纵向位置)
画板1.清除 (横向位置 ＋ 1, 0, 画板1.宽度 － 横向位置, 纵向位置 － 1)
画板1.清除 (横向位置 ＋ 1, 纵向位置 ＋ 1, 画板1.宽度 － 横向位置, 画板1.高度 － 纵向位置)