PaintPicture函数局部截取问题，请高手指教！

Question

vb6.0中picturebox控件的 PaintPicture函数
我想利用它截取jpg图形的一部分，即局部截图，比如图形是200*100大小的，我想截取成120*100，其余部分不要，如何解决呢
原图在picture1中，截取后的图形放入picture2中，谢谢！

Answer 1

http://topic.csdn.net/u/20080531/20/d42229d7-c8b2-40ff-a6e6-052496a09291.html

Answer 2

Option ExplicitPrivate Sub Form_Load()
    Me.Picture1.ScaleMode = 3
    Me.Picture2.ScaleMode = 3
    Me.Picture2.AutoRedraw = True
End SubPrivate Sub Command1_Click()
    Me.Picture2.PaintPicture Me.Picture1.Picture, 0, 0, 120, 100
End Sub