I am using a createPen function & passing its non-zero return value & handle to the device-context of picturebox to the SelectObject function. However, I get the error, " function not found in the specified dll."
Code:

PenWidth = 16
PenColor = QBColor(4)

pic1hdc = Picture1.hdc

'StockObject = GetStockObject(WHITE_PEN)
DrawPen = CreatePen(PS_DASH, ByVal PenWidth, ByVal PenColor)
ThisPen = SelectObject(ByVal pic1hdc, ByVal DrawPen)

Note: DrawPen, PenWidth, PenColor, ThisPen & pic1hdc
were declared as Long


I like to know what am I doing wrong? How can I correct this situation.


Thanks all,

saif