求个巧妙方法，裁剪PictureBox.image属性

Private Sub Form_Load()
Me.ScaleMode = 3
With Pic
.ScaleMode = 3
.Width = 100
.Height = 100
.AutoRedraw = True
Me.Visible = True
.PaintPicture LoadPicture("D:\你的图片.jpg"), 0, 0
MsgBox "经过若干操作"
.Width = 50
.Height = 50
SavePicture .Image, "d:\out.bmp"
End With
End Sub

先修改picturebox的大小，然后再 paintpicture

----------------------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------------------
如果做比较复杂的裁图软件，还是用GDI+好一些。