Private bmpMain As New Bitmap("d:\test.png")
 
    Private Function CutGFX(ByVal intX As Integer, ByVal intY As Integer, ByVal _
      intWidth As Integer, ByVal intHeight As Integer) As Image
        Dim b As Bitmap = New Bitmap(intWidth, intHeight, _
        System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        Dim g As Graphics
        g = Graphics.FromImage(b)
        'Bildausschnitt
        g.DrawImage(bmpMain, New RectangleF(0, 0, intWidth, intHeight), New _
          RectangleF(intX, intY, intWidth, intHeight), GraphicsUnit.Pixel)
        'Bitmap Rückgabe
        CutGFX = b
        g.Dispose()
    End Function

        PictureBox1.Image = Image.FromFile("d:\1.png")
        PictureBox2.Image = Image.FromFile("d:\2.png")
        ...