i'm using VB6...
i'm trying build a list property(is my 1st list property):
Code:
Dim objName() As String

Public Property Get ObjectsCollision(ObjectIndex As Long) As String
    If strFileName = "" Or blnDestroyed = True Then Exit Property
    ObjectsCollision = objName(ObjectIndex)
End Property

Public Property Let ObjectsCollision(ObjectName As String, ObjectIndex As Long)
    If strFileName = "" Or blnDestroyed = True Then Exit Property
    If ObjectIndex > objName.Count Then ReDim Preserve objName(ObjectIndex)
    objName(i) = ObjectName
    PropertyChanged "ObjectsCollision"
End Property
i have some errors in code, can anyone help me in code?
how can i use it in readproperties and writeproperties UC events?
thanks