请各位朋友帮忙，关于timer控件的问题。

以下是我做电子相册的编码，但调试后不行，不知道怎么回事，他只显示第一张图片。本意是想用一个picture控件和timer控件。要它四张图片每隔一秒换一张图片的。望高手指点下，谢谢！ private sub form_load() 　　dim i% 　　i=0 　　timer1.enable=ture 　　timer1.interval=1000 　　private sub timer1_timer() 　　i=i+1 　　if i=1 then 　　picture1.picture=loadpicture(app.path+“文件名称”) 　　elseif i=2 then 　　picture1.picture=loadpicture(app.path+“文件名称”) 　　elseif i=3 then 　　picture1.picture=loadpicture(app.path+“文件名称”) 　　elseif i=4 then 　　i=0 　　picture1.picture=loadpicture(app.path+“文件名称”)