CreatePen

声明］

　　Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long

　　［说明］

　　用指定的样式、宽度和颜色创建一个画笔

　　［参数表］

　　nPenStyle ------ Long，指定画笔样式，可以是下述常数之一

　　PS_SOLID

　　画笔画出的是实线

　　PS_DASH

　　画笔画出的是虚线（nWidth必须是1）

　　PS_DOT

　　画笔画出的是点线（nWidth必须是1）

　　PS_DASHDOT

　　画笔画出的是点划线（nWidth必须是1）

　　PS_DASHDOTDOT

　　画笔画出的是点-点-划线（nWidth必须是1）

　　PS_NULL

　　画笔不能画图

　　PS_INSIDEFRAME

　　画笔在由椭圆、矩形、圆角矩形、饼图以及弦等生成的封闭对象框中画图。如指定的准确RGB颜色不存在，就进行抖动处理

　　nWidth --------- Long，以逻辑单位表示的画笔的宽度

　　crColor -------- Long，画笔的RGB颜色

　　［返回值］

　　Long，如函数执行成功，就返回指向新画笔的一个句柄；否则返回零

　　［其它］

　　一旦不再需要画笔，记得用DeleteObject函数将其删除