lineto和movetoex是API函数,所以可以使用API函数的方法改变绘制的颜色dim hPen as longhpen=createpen(0,1,vbGreen)selectobject picture1.hdc,hpen.....deleteobject hpen其中你可以把VBGREEN改成你想要的颜色
Picture1.ForeColor = RGB(255, 0, 0)
