加一个timer控件,代码:
Private Sub Timer1_Timer()
static a as integer ,b as integer
a=a+1
b=a mod 5
select case b
case 0
picture1.picture=loadpicture()
case 1
picture1.picture=loadpicture()
case 2
picture1.picture=loadpicture()
case 3
picture1.picture=loadpicture()
case 4
picture1.picture=loadpicture()
end select
End Sub
在()里加入你的图片的路径,比如:app.path&image1.jpg