各位老师：
下列代码在立即窗口查看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

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

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