Смена картинок на форме под управлением кнопок - Visual Basic .NET

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

Суть вот в чем: Есть созданная форма под название КАТАЛОГ. Мне нужно на этой форме разместить от 1...n количества картинок, потом создать две кнопки: Следующая и Предыдущая. Как мне это создать чтобы было все понятно.

Решение задачи: «Смена картинок на форме под управлением кнопок»

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

                            Public Class Form1
    Private TFiles() As String = {}
    Private PositionImage As Integer = 0
    Private Sub ButtonSelect_Click(sender As Object, e As EventArgs) Handles ButtonSelect.Click
        Dim folderSelect As New FolderBrowserDialog()
        folderSelect.Description = "Выберите каталог:"
        If folderSelect.ShowDialog = Windows.Forms.DialogResult.OK Then
            For Each file In IO.Directory.GetFiles(folderSelect.SelectedPath)
                If file Like "*.jpg" Or file Like "*.png" Or file Like "*.bmp" Then
                    ReDim Preserve TFiles(TFiles.Length)
                    TFiles(TFiles.Length - 1) = file
                End If
            Next
            folderSelect.Dispose()
            If TFiles.Length > 0 Then
                ButtonNext.Enabled = False
                ButtonBack.Enabled = False
                PositionImage = 0
                PictureBox1.Image = Image.FromFile(TFiles(PositionImage))
                If TFiles.Length > 1 Then ButtonNext.Enabled = True
            End If
        End If
    End Sub
 
    Private Sub ButtonNext_Click(sender As Object, e As EventArgs) Handles ButtonNext.Click
        PositionImage += 1
        If PositionImage = TFiles.Length - 1 Then sender.Enabled = False
        PictureBox1.Image = Image.FromFile(TFiles(PositionImage))
        If PositionImage > 0 Then ButtonBack.Enabled = True
    End Sub
 
    Private Sub ButtonBack_Click(sender As Object, e As EventArgs) Handles ButtonBack.Click
        PositionImage -= 1
        If PositionImage = 0 Then sender.Enabled = False
        PictureBox1.Image = Image.FromFile(TFiles(PositionImage))
        If PositionImage < TFiles.Length - 1 Then ButtonNext.Enabled = True
    End Sub
End Class
                        