Public Class Form1
'botón de cargar imagen en el picturebox1, cortarla, y redibujarla en el picturebox2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A As System.Drawing.Image
        Dim B As System.Drawing.Rectangle
        Dim c As System.Drawing.Rectangle

        'A= Source File ( una Imagen )

        'B= Posicion donde Se va a Pegar y con que ancho y largo

        'C= De Que Posicion se va a Copiar y con el ancho y largo

'cargo una imagen
        PictureBox1.ImageLocation = "C:\Users\RGONZALEZ\Desktop\pdfs\ordent.jpeg"
        PictureBox1.Load()
'asigno A con la imagen del picturebox1
        A = PictureBox1.Image

        B = New Rectangle(0, 0, PictureBox2.Width, PictureBox2.Height)

' copio rectángulo del picturebox1 pero cortado y lo asigno a c
        c = New Rectangle(0, 70, PictureBox1.Width, PictureBox1.Height)

'redibujo la imagen en el picturebox2 pero ya con la modificacion
        PictureBox2.CreateGraphics.DrawImage(A, B, c, GraphicsUnit.Pixel)
'hasta aquí todo bien

    End Sub
'botón de guardar la imagen del picturebox2
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'aquí es donde me sale error por que en picturebox2.image tiene el valor de nothing a pesar de que se esta mostrando la imagen
        PictureBox2.Image.Save("C:\Users\RGONZALEZ\Desktop\pdfs\ordent.jpeg", Drawing.Imaging.ImageFormat.Jpeg)
    End Sub
End Class

Public Class Form1
    'botón de cargar imagen en el picturebox1, cortarla, y redibujarla en el picturebox2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A As System.Drawing.Image
        Dim B As System.Drawing.Rectangle
        Dim c As System.Drawing.Rectangle

        'A= Source File ( una Imagen )

        'B= Posicion donde Se va a Pegar y con que ancho y largo

        'C= De Que Posicion se va a Copiar y con el ancho y largo

        'cargo una imagen
        PictureBox2.Image = New Bitmap( "C:\imagen.jpeg")

        'asigno A con la imagen del picturebox1
        A = PictureBox2.Image

        B = New Rectangle(0, 0, PictureBox2.Width, PictureBox2.Height)

        ' copio rectángulo del picturebox1 pero cortado y lo asigno a c
        c = New Rectangle(0, 70, PictureBox2.Width, PictureBox2.Height)

        'redibujo la imagen en el picturebox2 pero ya con la modificacion
        Dim D As Bitmap = New Bitmap(PictureBox2.Width, PictureBox2.Height - 70)
        Dim g As Graphics = Graphics.FromImage(D)

        g.DrawImage(A, B, c, GraphicsUnit.Pixel)
        g.Dispose()
        PictureBox2.Image.Dispose()
        PictureBox2.Image = D

        'hasta aquí todo bien

    End Sub
    'botón de guardar la imagen del picturebox2
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'aquí es donde me sale error por que en picturebox2.image tiene el valor de nothing a pesar de que se esta mostrando la imagen
        PictureBox2.Image.Save( "C:\imagen.jpeg", Drawing.Imaging.ImageFormat.Jpeg)
    End Sub
End Class