| VB声明 | ||
| 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 | ||
| 说明 | ||
| 创建一个扩展画笔（装饰或几何） | ||
| 返回值 | ||
| Long，如执行成功，返回一个指向扩展画笔的句柄。零表示执行出错。一旦不再需要，记得用DeleteObject将画笔删除 | ||
| 参数表 | ||
| 参数 | 类型及说明 | |
| 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） | |