[alshandodi]

شكر خاص للاستاذ انس محمود واعتذر منه ساضيف في حاله التغيير تلقائي ويضع في تايمير 

كود :

  Dim i As Integer
       i = Images.IndexOf(CurrentImage) + 1
       If i < Images.Count Then
           CurrentImage = Images(i)

           Try
               PictureBox1.Image = Image.FromFile(CurrentImage)
           Catch ex As Exception
               'الصورة ليست صالحة او لم تعد كذلك
           End Try
       Else
           CurrentImage = Images(0)
           PictureBox1.Image = Image.FromFile(CurrentImage)

       End If