He encontrado este código que te muestra como cortar o copiar parte de una imagen de un picturebox. Quizá te ayude.
http://www.recursosvisualbasic.com.a...tar-imagen.htm
Yo he separado esta parte y he creado una sub como ejemplo.
Esta sub, en teoria (no la he probado por separado), copia un trozo de un picture a otro:
Código vb:
Ver originalSub CopiarPicToPic(PicOrigen As PictureBox, PicDestino As PictureBox, ByVal x1 As Single, ByVal x2 As Single, ByVal y1 As Single, ByVal y2 As Single)
PicDestino.Cls
DoEvents
PicDestino.Width = Abs(x1 - x2)
PicDestino.Height = Abs(y1 - y2)
If x1 < x2 And y1 < y2 Then
DoEvents
PicDestino.PaintPicture PicOrigen.Picture, 0, 0, _
Abs(x2 - x1), Abs(y2 - y1), _
x1, y1, _
Abs(x2 - x1), Abs(y2 - y1)
ElseIf x1 > x2 And y1 > y2 Then
DoEvents
PicDestino.PaintPicture PicOrigen.Picture, 0, 0, _
Abs(x1 - x2), Abs(y1 - y2), _
x2, y2, _
Abs(x1 - x2), Abs(y1 - y2)
ElseIf x1 > x2 And y1 < y2 Then
DoEvents
PicDestino.PaintPicture PicOrigen.Picture, 0, 0, _
x1 + x2, y1 + y2, _
x2, y1, _
x1 + x2, y1 + y2
ElseIf x1 < x2 And y1 > y2 Then
DoEvents
PicDestino.PaintPicture PicOrigen.Picture, 0, 0, _
x1 + x2, y1 + y2, _
x1, y2, _
x1 + x2, y1 + y2
End If
DoEvents
End Sub
Yo me la voy a guardar por ahí por si acaso...
Saludos