VB中如何让默认的线段的黑色改为其他颜色?

需要创建画笔，下面是个例子，注意相关的API函数要自己引入： Dim hdc As Long, pen As LongDim p As POINTAPIhdc = GetDC(0)pen = CreatePen(0, 1, &HFF0000) '三个参数分别是线条的样式（实线、虚线等）、宽度、颜色SelectObject hdc, pen '把画笔导入设备场景MoveToEx hdc, 100, 100, pLineTo hdc, 1000, 1000DeleteObject pen &#