易语言常量支持库，调用API函数实现荧光笔GDI例程

鼠标位置每改变一次 则画一条直线 连接起来则可得到曲线
.如果 (end ＝ 假) ' 没有end的判断 画第一笔 然后画第二笔 会被连在一起
' 画板的画点无法控制点的大小 而用直线画点 无法连成一条线
.如果真 (point [1].x ＝ 0)
point [1].x ＝ x
.如果真结束
.如果真 (point [1].y ＝ 0)
point [1].y ＝ y
.如果真结束
point [2].x ＝ x
point [2].y ＝ y
RGB_ ＝ colour
' GDI+不支持光栅运算
' 创建设备句柄
hdc ＝ GetDC (hwnd)
' 创建画笔
new_pen ＝ CreatePen (#PS_SOLID, width, RGB_)
' 光栅运算
oldRop ＝ SetROP2 (hdc, #R2_MASKPEN)
' 载入画笔
old_pen ＝ SelectObject (hdc, new_pen)
' 画直线
MoveToEx (hdc, point [1].x, point [1].y, lppoint)
LineTo (hdc, point [2].x, point [2].y)
' 画笔 光栅运算 返回
SelectObject (hdc, old_pen)
' SetROP2 (hdc, oldRop)
' 释放
DeleteObject (new_pen)
ReleaseDC (hwnd, hdc)
point [1].x ＝ point [2].x
point [1].y ＝ point [2].y
.否则
point [1].x ＝ 0