Написать код для перелистывания картинок - Visual Basic .NET

Формулировка задачи:

Код для перелистывания картинок вперёд и назад в вижуал бейсик,каждая картинка в отдельном пикчебоксе.помогите пожалуйста.

Решение задачи: «Написать код для перелистывания картинок»

textual
                            Листинг программы 
                        

                            Public Class Form1
    Dim path As String
    Dim images() As String
    Dim ii, nn As Integer
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        path = "C:\07" 'картинки будем хранить в отдельной папке (так их можно будет удалять, добавлять не изменяя программу).
        'Имя картинки должно начинаться с "NNN_" где N - номер картинке по порядку (001_, 002_, 003_, ..., NNN_). 
        'Предполагаю что порядок требуется. Форматы: jpg, png, bmp.
        Dim Files = My.Computer.FileSystem.GetFiles(path, FileIO.SearchOption.SearchTopLevelOnly, {"*.bmp", "*.jpg", "*.png"})
        ReDim images(Files.Count - 1)
        Files.CopyTo(images, 0)
        Array.Sort(images)
        nn = images.Length
        If nn > 0 Then
            PictureBox1.Image = New Bitmap(images(ii))
        Else
            MsgBox("Файлы не найдены!")
            Button1.Enabled = False
            Button2.Enabled = False
        End If
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'Вперед
        ii += 1
        If ii > nn - 1 Then ii = 0
        PictureBox1.Image = New Bitmap(images(ii))
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        'Назад
        ii -= 1
        If ii < 0 Then ii = nn - 1
        PictureBox1.Image = New Bitmap(images(ii))
    End Sub
End Class
                        