如何将个数组传递给一个函数？

Question

Private Sub Command1_Click()Dim Frame(200) As LongFor i = 1 To 100
   Frame(i) = i
Next iCreateAVIFile( Frame(0),100)End SubPublic Function CreateAVIFile(ByVal Frames As Long, n As Long)End Function
怎么样将数组Frame(i)传给函数CreateAVIFile，定义函数CreateAVIFile的参数是应该是怎样的，如果是ByVal 在该函数中又是怎么取的数组的值？

Answer 1

好象只能传递不定长的数组吧。定长的数组传递没有多少意义。
如下：
Public Function CreateAVIFile(ByVal Frame() As Long, n As Long)End Function

Answer 2

Public Function CreateAVIFile( Frames As Long, n As Long)