切割一个Container中的图片

->前几天在网路上闲逛时，看到有人问了这样的问题：想要写拼图程式，又不想用已经切割好的图片，不知要如何把一个完整的图片利用程式来切割。以下的程式只是示范切割图片的方法，而不是教你如何写拼图程式。
　　
　　需求物件：
　　
　　Form,PictureBox
　　
　　请建立一个新专案，并在表单中放入上述物件，再把以下程式码复制到表单的程式码视窗，最後按下F5来执行。(注意图片路径可能要修改)
　　
　　PrivateSubForm_Activate()
　　
　　'详细阅读PaintPicture的说明就可了解,在来源图和目的图中,
　　
　　'可以指定某个特定区域来绘图,亦即可以将图片切割或放大,缩小
　　
　　Picture1.PaintPicturePicture,10,10,1000,1000,0,0,500,500
　　
　　EndSub
　　
　　PrivateSubForm_Load()
　　
　　AutoRedraw=True
　　
　　'以下路径可能要修改
　　
　　Picture=LoadPicture("e:win95ubbles.bmp")
　　
　　WithPicture1
　　
　　.Left=1000
　　
　　.Top=1000
　　
　　.Width=2000
　　
　　.Height=2000
　　
　　.AutoRedraw=True
　　
　　EndWith
　　
　　EndSub->->