Dim img As Image = Image.FromFile("C:\test.jpg")
        Dim sSize As New Size(img.Width / 4, img.Height / 4)
        Dim bmp(15) As Bitmap
        Dim g As Graphics
 
        For i As Integer = 0 To 15
            bmp(i) = New Bitmap(256, 192)
            g = Graphics.FromImage(bmp(i))
            If i <= 3 Then
                g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
                  sSize.Height), _
                                 New RectangleF(i * sSize.Width, 0, _
                                 sSize.Width, sSize.Height), GraphicsUnit.Pixel)
            ElseIf i <= 7 Then
                g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
                  sSize.Height), _
                                 New RectangleF((i - 4) * sSize.Width, 1 * _
                                 sSize.Height, sSize.Width, sSize.Height), _
                                 GraphicsUnit.Pixel)
            ElseIf i <= 11 Then
                g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
                  sSize.Height), _
                                 New RectangleF((i - 8) * sSize.Width, 2 * _
                                 sSize.Height, sSize.Width, sSize.Height), _
                                 GraphicsUnit.Pixel)
            ElseIf i <= 15 Then
                g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
                  sSize.Height), _
                                 New RectangleF((i - 12) * sSize.Width, 3 * _
                                 sSize.Height, sSize.Width, sSize.Height), _
                                 GraphicsUnit.Pixel)
            End If
            CType(Me.Controls("PictureBox" & i + 1), PictureBox).Image = bmp(i)
        Next