动态操作控件

Question

向动态的操作一个已存在的控件，除了使用控件数组还有什么方法?
比如
我要用一个 for 循环，来遍历所有图像控件，在遍历的过程中操作控件的属性，这个方法除了使用控件数组还有没有别的方法实现

Answer 1

for each也得需要 控件数组吧

Answer 2

和数组没关系，遍历controls集合即可：
Dim a
For Each a In Controls
'你的代码
Next

Answer 3

和数组没关系，遍历controls集合即可：
Dim a
For Each a In Controls
'你的代码
Next
-----------------------------------------------------------------------------------
那样只能遍历所有的控件，不能只遍历 image控件吧

Answer 4

晕啊，你不会自己加个语句判断吗，像这样：
Dim a
For Each a In Controls
    If TypeName(a) = "Image" Then
        '你的代码
    End If
Next