VB怎么从picture1中截取指定坐标的区域图像到picture2中

请给个指定坐标X,Y截取图像的范例程序

---

'添加两个图片框控空团件Picture1和Picture2
'再添加一个Command1按钮。

Option Explicit

Private Sub Command1_Click()
Dim StartX, EndX
Dim StartY, EndY

StartX = 90
StartY = 0
EndX = 210
EndY = 100
With Picture2
.Cls
.PaintPicture Picture1.Picture, 0, 0, EndX - StartX, EndY - StartY, _
StartX, StartY, EndX - StartX, EndY - StartY
End With

End Sub

Private Sub Form_Load()
Picture2.AutoRedraw = True
Picture2.ScaleMode = ScaleModeConstants.vbPixels
Picture1.Picture = LoadPicture("坦亏旁让橡C:\WINDOWS\winnt256.bmp")

End Sub

---