主题：循环读取图片

     我现在想在一个文件夹里放N张图片，想做个窗口，放一个图片控件，循环读取显示里面的图片(每张图片显示10秒钟)，这用什么方法比较好

    我想判断一下这个目录里的所有文件的格式（比如我想判断这个文件是否为jpg格式），这用什么方法比较好

 还有，这个10秒显示一次（每张图片轮循显示10秒钟），我想不出来，请帮我代码完善一下

    这个每张图片显示10秒钟，还是实现不了呀

vars("a") = FileSys.GetFiles("C:\111\")

if vars("a").count > 0 then

vars("i") = 0

else

vars("i") = -1

end if

计时事件

if vars("i") > -1 andalso vars("i") < vars("a").count

e.Form.Controls("PictureBox1").ImageFile=vars("a")(vars("i"))

vars("i") += 1

endif