creating an array type property in activex control

[asif_mahboob]

Hi !!!!

The problem is same ,I am sending the sample code and readme file

[Edneeis]

I'm sorry I'm not sure where you are from but it's hard for me to understand you and what you are wanting. Is this what you want, an array property like the list of a listbox?

Private m_List() As String
 
Public Property Get List(ByVal Index As Long) As String
    List = m_List(Index)
End Property
 
Public Property Let List(ByVal Index As Long, ByVal Value As String)
    If Index > UBound(m_List) Then
        Err.Raise vbObjectError + 512, "List", "Index Out of Bounds"
        Exit Property
    End If
    
    m_List(Index) = Value
End Property
 
 
Public Sub AddItem(ByVal Value As String)
    ReDim Preserve m_List(UBound(m_List) + 1)
    m_List(UBound(m_List)) = Value
End Sub