Just a few ways:
Code:
Picture1.PSet(10,10)
Pixture1.Line(20,10)-(100,20)
Pixture1.Line(20,10)-(100,20),,B
BitBlt(Picture1.hDC,0,0,32,32,Picture2.hDC,0,0,vbSrcCopy)
... ;)