［声明］
Declare Function ExtCreatePen Lib "gdi32" Alias "ExtCreatePen" (ByVal dwPenStyle As Long, ByVal dwWidth As Long, lplb As LOGBRUSH, ByVal dwStyleCount As Long, lpStyle As Long) As Long
［说明］
创建一个扩展画笔（装饰或几何）
［参数表］
dwPenStyle ----- Long，画笔样式来自下述常数组的任何一个常数的组合（OR运算）：
PS_COSMETIC or PS_GEOMETRIC
画笔的类型
PS_ALTERNATE, PS_SOLID, PS_DASH, PS_DOT, PS_DASHDOT, PS_DASHDOTDOT,
PS_NULL, PS_USERSTYLE, PS_INSIDEFRAME
画笔的样式
PS_ENDCAP_???
画笔的笔尖
PS_JOIN_???
在图形中连接线段或在路径中连接直线的方式
dwWidth -------- Long，指定线宽。几何画笔的线宽肯定是1
lplb ----------- LOGBRUSH，lbColor代表画笔颜色。对于装饰画笔，lbStyle为PS_SOLID；对于几何画笔，lbStyle则代表实际的样式。针对几何画笔，必须设置其他所有字体
dwStyleCount --- Long，如指定了PS_USERSTYLE，则代表lpStyle数组中的条目数量
lpStyle -------- Long，指定PS_USERSTYLE的“线段/空白”对（原文：Line/space
pairs for PS_USERSTYLE）
［返回值］
Long，如执行成功，返回一个指向扩展画笔的句柄。零表示执行出错。一旦不再需要，记得用DeleteObject将画笔删除