各位大哥，帮忙了！小第近日编了个OCX，定义了一个属性是数组，即我想把一个二维数组值传递给该属性，怎么搞啊？

Question

用ByRef，类型为as variant
不行啊！

Answer 1

使用地址传递了public function VarFromlPtr(byval lPat as long,byval cbSize as long) as variant
dim k as type
copymoney k ,byval lPtr,cbSize
varFromlPtr=k
end function

Answer 2

怎么不行，你怎么传的。
传的时候不要括号的：Private Sub Form_Load()
Dim y(8, 9) As Long
Call xc(y)     '不要用xc(y()), C里带过来的毛病。
Debug.Print y(2, 3)
End SubPrivate Sub xc(x As Variant)
 x(2, 3) = 5
End Sub

Answer 3

我发现在Property Let过程中，如果对属性变量redim一下，就可以把数组值传递给属性了，不知怎么回事！
288794和AdamBear说得也有道理！