Private Sub Cmd10_Click()
Select Case Y
Case 0:
Img1.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 1:
Img2.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 2:
Img3.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 3:
Img4.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 4:
Img5.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 5:
Img6.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 6:
Img7.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 7:
Img8.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 8:
Img9.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 9:
Img10.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 10:
Img11.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 11:
Img12.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 12:
Img13.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 13:
Img14.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 14:
Img15.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Case 15:
Img16.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
End Select
Y = Y + 1
If Y > 15 Then
Y = 15
End If
End Sub
//效果要求，控制一个cmd按键在16个Img图像里按顺序显示同一个画面，每按一次递增显示一个画面。现在效果是达到了，可不可以简单点呢？求指教。。。

IMG 定义一个数组。
也就是  index 属性里加数字，但名字一样的。

建立方法：简单的，建立第一个 img 控件，起好名字。然后复制，然后再粘贴，系统会提示你是否建立数组，选是，
然后继续复制，粘贴，直到建好 16 个 img 控件来。下标是  0 - 15 ，一共16个控件，一样你可以移动位置什么的。

代码就可以简化成 下面几行就可以了。
Img(y).Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\X12\res\and.bmp")
Y = Y + 1
If Y > 15 Then
Y = 15
End If

说Img（y）没定义。。

呵呵,OK了。。谢谢2楼哈。
我还问问，我现在要把自己制作的图片Copy出来，要怎么弄啊？求详解。。。VB 6.0