Imports System.IO Public Class SlideShow ' table of image filenames Dim images As System.Collections.ObjectModel.ReadOnlyCollection(Of String) ' number of images Dim nimage As Integer = 0 ' number of current image Dim cimage As Integer = 0 ' source folder name Dim dirname As String = My.Computer.FileSystem.SpecialDirectories.MyPictures ' show an image Public Sub ShowImage(ByVal idx As Integer) picBox.Image = New Bitmap(images(idx)) txtLabel.Text = images(idx) txtLabel.Text = txtLabel.Text.Remove(0, dirname.Length + 1) End Sub ' find all the image files Private Sub SlideShow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load images = My.Computer.FileSystem.GetFiles(dirname, FileIO.SearchOption.SearchTopLevelOnly, "*.jpg") nimage = images.Count MsgBox("Found " & nimage & " images in " & dirname) cimage = 1 ShowImage(cimage) End Sub ' go backward Private Sub butPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butPrev.Click cimage = (cimage + nimage - 1) Mod nimage ShowImage(cimage) End Sub ' go forward Private Sub butNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butNext.Click cimage = (cimage + 1) Mod nimage ShowImage(cimage) End Sub End Class