I see, you want to pass a pointer, not the actual array..

In that case your only option would be to use one of the Undocumented and Unsupported Pointer Functions in VB, like VarPtr() to give you the Pointer to a Local Array which you can store as a part of a User Defined Type.

Something like:
Code:
Type Type1
    par1 As Integer
    myArr As Long
End Type

Dim myType As Type1
Dim Arr(1000) As Double

myType.myArr = VarPtr(Arr(0))
------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]