ActiveX控件中如何保存不定长的字符数组

[seagh]

自己对VB不熟，想用VB临时作个ActiveX控件嵌到Word中使用。考虑控件中会保存一些不定长的二进制数据,定义了一个字符数组的属性;写的代码如下：
Dim binData() As Byte
:
:
Public Sub SetValue(value() As Byte, length As Long)
：
：
Public Function GetValue() As Byte()
GetValue = binData
:
问题是无论是直接数组赋值（binData ＝ value），还是用Redim 再拷贝都不行；访问binData总是空的，不解－－自己是不会用VB啊
不知大家可否给点建议

[seagh]

那个方法试过了，当前实例下数据可读到；但保存不了，我的意思是，对于word文档其中嵌入那个ActiveX控件后保存，再打开，程序中读取ActiveX的GetValue，其返回值是空的；也即那个控件不能保存刚才通过SetValue写入的值，不知是不是ActiveX控件没那特性，还是要加什么声明之类。望大家解惑

[rexyudl]

Dim binData() As Byte

Public Sub SetValue(value() As Byte)
ReDim binData(UBound(value)) As Byte
binData = value
End Sub
Public Function GetValue() As Byte()
GetValue = binData
End Function

[落伍者]

Dim binData() As Byte

Public Sub SetValue(value() As Byte)
binData = value
End Sub
Public Function GetValue() As Byte()
GetValue = binData
End Function

[seagh]

Redim也不行，好像它是在动态区分配的（栈）；如果当前实例关闭（比如Word关闭－－其中已嵌入ActiveX对象），再打开那个文档，其中的ActiveX控件内那个binData是空的（而其他属性string、int类型的数据是存在的）；我的期望是那个控件能保存SetValue过的那些数据，是不是其中没注意什么？

[seagh]

问题解决了：
Dim m_ContentData As Variant

Public Property Get ContentData() As Variant
ContentData = m_ContentData
End Property

Public Property Let ContentData(ByVal data As Variant)
m_ContentData = data
End Property

内容保存：
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
m_ContentData = PropBag.ReadProperty("ContentData", m_ContentData)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("ContentData", m_ContentData)
End Sub