Thanks for the help
Code:
Private Sub PictureBox2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown Dim d As Integer Dim p As Integer For d = 0 To 500 For p = 0 To 100 Next p animatedgif.Location