添加部件：Microsoft Windows Common Controls 6.0。然后向窗体中添加一个imagelist控件。右击imagelist控件属性，图像，然后依次插入你要的图片。它们的索引号是从1开始的。再添加一个按钮，一个picturebox。所有代码如下：Private Sub Command1_Click() '开始
Dim i As Integer
Do
For i = 1 To ImageList1.ListImages.Count
Picture1.Cls
Picture1.PaintPicture ImageList...
在timer1中使用 Picture1.Picture = LoadPicture("C:\My Pictures\1.jpg")这种方式加载图片，定时换下一种图片dim num as integersub timer1_timer()
num=num+1
if num>15 then num=1
Picture1.Pictur...
