VB6控件数组怎么当函数参数传递呀？

Question

VB6控件数组怎么当函数参数传递呀？（不用变体类型的话）
function Test2DSmallClickToRoom(ByRef imgFrom() As VB.Image)调用：Test2DSmallClickToRoom(imgHot3)说参数类型不匹配

Answer 1

function Test2DSmallClickToRoom(objImg as Object)
……
end function

Answer 2

(ByRef imgFrom() As object)

Answer 3

抱歉！收回我上面的发言！
控件数组可以传递！
同意 Reminisce(咕唧咕唧) 的。

Answer 4

Function thename(ByVal imgFrom As Image) As String
thename = imgFrom.Name
End Function
Private Sub Image1_Click()
MsgBox thename(Image1)
End Sub