函数调用数组存储图片控件时遇到的问题，请高手指点！（代码在贴中）

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……”弹出框！！！
这究竟是怎么回事啊？