需要：2个按钮，1个listbox，1个picturebox，1个openfiledialog,1个timer
设计界面：

步骤：在from1中，加入成员变量PicNo，用于表示显示的图片号
Public Class Form1
Dim picno As Integer           '定义图片号
End Class
窗体的Load事||件完成变量的初始化以及设定计时器不可用：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         picno = 0                  '图片号置
         Timer1.Enabled = False     '设置加载时定时器不可用
End Sub
设置OpenFileDialog1的Multiselect属性为True
单击“选择图片”按钮，弹出“打开”对话框，选择一组图片，选中的图片文件名将显示在列表框里头：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         OpenFileDialog1.Filter = "位图文件|*.bmp|gif文件|*.gif|jpeg文件|*.jpg|所有文件|*.*"   '设置过滤器，只显示图象文件
         OpenFileDialog1.FilterIndex = 3    
         OpenFileDialog1.ShowDialog()                   '显示打开对话框
         ListBox1.Items.Addrange(OpenFileDialog1.FileNames)   '将用户选定文件载入列表框
End Sub
单击“浏览”按钮，列表框中的图片将自动循环播放：
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
         Timer1.Enabled = True                           '设置定时器可用
End Sub
定时器控件的Tick 事||件实现定时显示不同图片：
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
         ListBox1.SelectedIndex = picno
         Dim s As String
         s = ListBox1.SelectedItem.ToString()            '得到某一图片的路径
         PictureBox1.Image = Image.FromFile(s)           '加载图片
         picno = picno + 1
         If picno >= ListBox1.Items.Count Then           '如果是最后一张，则转为第一张
             picno = 0
         End If
End Sub