各位老师：
下列代码在立即窗口查看INDEX属性时都很正常，但是在运行过程中未能如愿，麻烦看一下代码问题出在哪里，谢谢。
程序要求：
通过点击窗体中的IMAGE控件（根据IMAGE1控件数组的索引值）来显示不同的窗口
Private Sub Image1_Click(Index As Integer)
Select Case Image1.Item(Index)
Case 0
Form2.Show
Case 1
Form3.Show
Case 2
Form4.Show
Case Else
Debug.Print Index
End Select
End Sub

直接case index不行吗？

嗯 ...直接
Select Case Index
就可以..

Case 0
Form2.Show
Case 1
Form3.Show
Case 2
Form4.Show
Case Else
Debug.Print Index
End Select
你form2,fomr3,form4哪来的,,你就一个form1,,你要人家显示什么?

非常感谢各位，正如你们所说的那样

Private Sub Image1_Click(Index As Integer)
Select Case Index（这句改一下就可以了）
Case 0
Form2.Show
Case 1
Form3.Show
Case 2
Form4.Show
Case Else
Debug.Print Index
End Select
End Sub