[Coder-san]

I can try to make it, but I'm currently working on something else. :p

Should be something like:

Code:

Dim ArrPoint As Point() Private Sub MoveObject() Dim intIndex As Integer = 0 For Each pic As PictureBox in Me.Controls Redim Preserve ArrPoint(intIndex) 'Expanding our Array Do While pic.Location.X < ArrPoint.X pic.Location.X += 2 Threading.Thread.Sleep(100) Loop Do While pic.Location.X > ArrPoint.X pic.Location.X -= 2 Threading.Thread.Sleep(100) Loop Do While pic.Location.Y < ArrPoint.Y pic.Location.Y += 2 Threading.Thread.Sleep(100) Loop Do While pic.Location.Y > ArrPoint.Y pic.Location.Y -= 2 Threading.Thread.Sleep(100) Loop intIndex += 1 Next End Sub