Public Function tt1
msgbox "tt1"
End Function
Public Function tt2
msgbox "tt2"
End Function
Public Function tt3
msgbox "tt3"
End Function
Public Function TestFlow(ByRef LoadFuns)
For i=0 to UBound(LoadFuns)-LBound(LoadFuns)
'将CallFunc的指针指向动态载入的函数
Set CallFunc=GetRef(LoadFuns(i))
Call CallFunc
Next
End Function
'调用测试流
Call TestFlow(Array("tt1","tt2"))