[RESOLVED] [VB6] how to make an array property persistence?

[joaquim]

i have 1 property array:

Public Property Get ObjectSelected(ByRef intList As Integer) As String
    On Error GoTo erro
    ObjectSelected = strObjectNames(intList)
    Exit Property
erro:
    ObjectSelected = ""
End Property

Public Property Let ObjectSelected(ByRef intList As Integer, strObjectName As String)
    If intList = 0 Then
        ReDim strObjectNames(0 To intList)
    Else
        ReDim Preserve strObjectNames(0 To intList)
    End If
    strObjectNames(intList) = strObjectName
    PropertyChanged "ObjectSelected"
End Property

i try using these way:

SelectedControls(0).ObjectSelected a, lstControls.List(i)

but give an error: "run-time error '450': wrong number of arguments or invalid property assigment".
it's my first time doing the property type(arrays). can anyone help me?
thanks