Hannes:

That is a nice piece of code! Essentially, you are drawing the the pictures a multiple times with the same value of i. So I put the last draw statement in a loop and the desired effect can be achieved in one click of the button.

Dim k As Integer
For k = 0 To 10
pic.CreateGraphics.DrawImage(img2, New Rectangle(50, 50, 200, 150), 0, 0, img2.Width, _
img2.Height, GraphicsUnit.Pixel, i)
Next

All we need is to adjust the maximum value of k in the loop to get the desired effect.

Thanks for this very useful code.