Dim al As New ArrayList
        Dim img As Image
        al.AddRange(IO.Directory.GetFiles("C:\tmp", "*.bmp"))
        al.AddRange(IO.Directory.GetFiles("C:\tmp", "*.jpg"))
        For Each f As String In al
            img = Image.FromFile(f)
            Me.PictureBox1.Size = img.Size
            Me.PictureBox1.Image = img
            Application.DoEvents()
            System.Threading.Thread.Sleep(500)
        Next