Dim img As Image = Image.FromFile("C:\test.jpg")
 
        Dim bmp As Bitmap
        Dim g As Graphics
 
        bmp = New Bitmap(100, 100)
        g = Graphics.FromImage(bmp)
        g.DrawImage(img, New RectangleF(0, 0, 100, 100), New RectangleF(0, 0, _
          100, 100), GraphicsUnit.Pixel)
        PictureBox1.Image = bmp
 
        bmp = New Bitmap(100, 100)
        g = Graphics.FromImage(bmp)
        g.DrawImage(img, New RectangleF(0, 0, 100, 100), New RectangleF(100, 0, _
          100, 100), GraphicsUnit.Pixel)
        PictureBox2.Image = bmp
 
        bmp = New Bitmap(100, 100)
        g = Graphics.FromImage(bmp)
        g.DrawImage(img, New RectangleF(0, 0, 100, 100), New RectangleF(200, 0, _
          100, 100), GraphicsUnit.Pixel)
        PictureBox3.Image = bmp
 
        bmp = New Bitmap(100, 100)
        g = Graphics.FromImage(bmp)
        g.DrawImage(img, New RectangleF(0, 0, 100, 100), New RectangleF(300, 0, _
          100, 100), GraphicsUnit.Pixel)
        PictureBox4.Image = bmp
 
        bmp = New Bitmap(100, 100)
        g = Graphics.FromImage(bmp)
        g.DrawImage(img, New RectangleF(0, 0, 100, 100), New RectangleF(0, 100, _
          100, 100), GraphicsUnit.Pixel)
        PictureBox5.Image = bmp
 
        bmp = New Bitmap(100, 100)
        g = Graphics.FromImage(bmp)
        g.DrawImage(img, New RectangleF(0, 0, 100, 100), New RectangleF(100, _
          100, 100, 100), GraphicsUnit.Pixel)
        PictureBox6.Image = bmp
 
        bmp = New Bitmap(100, 100)
        g = Graphics.FromImage(bmp)
        g.DrawImage(img, New RectangleF(0, 0, 100, 100), New RectangleF(200, _
          100, 100, 100), GraphicsUnit.Pixel)
        PictureBox7.Image = bmp
 
        bmp = New Bitmap(100, 100)
        g = Graphics.FromImage(bmp)
        g.DrawImage(img, New RectangleF(0, 0, 100, 100), New RectangleF(300, _
          100, 100, 100), GraphicsUnit.Pixel)
        PictureBox8.Image = bmp