我想你应该用timer控件
将图片排列好
pic1.jpg,pic2.jpg,pic3.jpg,pic4.jpg,pic5.jpg,pic6.jpg
dim  ppp   ppp="pic" & i & ".jpg"
   picture.loadpicture(ppp)
当然,i 和ppp应该定义程全局的
timer里的代你就要自己写了