I am having some trouble with property arrays. I think I have the property get and property let procedures correct, but I can't seem to get the ReadProperties and WriteProperties right. Can someone help?


Private m_Test() As String

Public Property Get Test() As String()
Test = m_Test
End Property

Public Property Let Test(ByRef New_Test() As String)
Dim I As Integer

Redim m_Test(Ubound(New_Test,1))
For I = LBound(New_Test,1) To Ubound(New_Test,1)
Test(I) = New_Test(I)
Next I

PropertChanged "Test"
End Property