函数调用数组存储图片控件时遇到的问题，请高手指点！（代码在贴中）
Dim FalshPictre() as Variant '声明一个任意类形数组Dim i as Integer
FalshPictre = Array(Pictre1,Pictre2,Pictre3,Pictre4,Pictre5) '分别将Pictre1至Pictre5几个图片控件名存储到FalshPictre数组中
For i=0 to 4
Call OpenFalsh(FalshPictre(i))
Next
'OpenFalsh函数声明如下
Private Sub OpenFalsh(fp as Object)
……
……
……
End Sub
但在运行编译时总是过不了并且提示“ByVal……”弹出框！！！
这究竟是怎么回事啊？
