Dim newImage As Image = PictureBox2.Image Dim Y As Integer = PictureBox1.Image.Width Dim X As Integer = PictureBox1.Image.Height PictureBox1.Height = X PictureBox1.Width = Y Dim i As Integer = 0 Dim j As Integer = 0 Dim vrai As Boolean = False While vrai = False While i < X Dim g As Graphics = Me.PictureBox1.CreateGraphics g.DrawImage(newImage, New Rectangle(j, i, 300, 300)) i = i + 300 End While i = 0 j = j + 300 If j >= Y Then vrai = True Else vrai = False End If End While i = 0 End Sub