Написать код для перелистывания картинок

A += 1
        Label1.Text = A
        If (A <= 5) Then
            If (A = 1) Then
                PictureBox9.Visible = False
                PictureBox10.Visible = True
            ElseIf (A = 2) Then
                PictureBox10.Visible = False
                PictureBox8.Visible = True
            ElseIf (A = 3) Then
                PictureBox8.Visible = False
                PictureBox7.Visible = True
            ElseIf (A = 4) Then
                PictureBox7.Visible = False
                PictureBox6.Visible = True
            ElseIf (A >= 5) Then
                PictureBox9.Visible = True
                PictureBox8.Visible = False
                PictureBox7.Visible = False
                PictureBox6.Visible = False
                PictureBox10.Visible = False
            End If
        Else
            PictureBox9.Visible = False
            PictureBox8.Visible = False
            PictureBox7.Visible = False
            PictureBox6.Visible = False
            PictureBox10.Visible = True
        End If

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