控件： 图片框数组 Index：0－3 分别装入了图片
计时器：Timer1 属性 2000

代码如下：是对着书上抄的！
Dim i As Integer, sg As Integer
Private Sub Form_Load()
Dim j As Integer
For j = 0 To 3
Picture1(j).Left = 0
Picture1(j).Top = 0
Picture1(j).Height = Picture1(0).Height
Picture1(j).Width = Picture1(0).Width
Next j
Picture1(1).Visible = False
Picture1(2).Visible = False
Picture1(3).Visible = False
Picture1(0).Visible = True
Timer1.Enabled = True
sg = 0
End Sub

Private Sub Timer1_Timer()
Randomize 　　　　　　　　　　　　'初始化随机函数
Picture1(sg).Visible = False 　　'让当前显示的图片不可见
i = Int(Rnd * 4) 　　　　　　　　'产生下一幅要显示图片的下标值
Picture1(i).Visible = True
sg = i 　　　　　　　　　　　　　'保留下在显示图片的下标值
End Sub
可运行后就是光显示picture1(0)的图片，不会显示其它的！ 你们看看那里错了！给个解释，谢谢！

缩进……缩进……

很简单。
你的Timer1.Interval保留了默认值0。改掉。

[此贴子已经被作者于2007-10-29 21:16:11编辑过]

我在题目上说的Timer的属性是　2000　　　看看别的地方还有问题吗、

你要检查,你创建4个pic控件数组时,有没有将pic都放在了第1个PIC里面
因为VB中,PIC是可以当框架的.,如果你不小心是将比如pic(2)放在了pic(0)中,那么2就肯定不会显示了.因为隐藏pic(0)时,2也隐藏了.

上面的是别人给你建议，我想我就是犯这个错误了！　

可我复制好后，一点击右键它都自动选中了第一个图片框，没办法！
给我说说应该怎么办？？楼下的，谢谢了

好了，现在弄好了，谢谢了！呵呵