vb中类与对象的使用！

[shuguangleo]

我有一个类Class1,里面有一个属性：
Private m_dbI24() As Double ‘一个数组
Public Property Get I24() As Double()
I24 = m_dbI24()
End Property

Public Property Let I24(I24() As Double)
m_dbI24() = I24
End Property

另一个类Class2,里面有个方法：
要用到Class1里的那个数组属性做参数，把数组里的n个值加起来！再返回一个Double的值！
请问这个方法怎么实现？？怎么给I24()数组附值！？？谢谢！

[weiweiplay]

Private Bytes() As Byte

Public Sub RedimData(ByVal iLen As Long)
ReDim Bytes(iLen - 1)
End Sub

Public Sub GetData(d() As Byte)
ReDim d(UBound(Bytes))
CopyMemory d(0), Bytes(0), UBound(Bytes) + 1
End Sub

Public Sub SetData(d() As Byte, ByVal Index As Long, ByVal iLen As Long)
CopyMemory Bytes(0), d(Index), iLen
End Sub