Object.myproperty(1) = "MyText"
Object.myproperty(9) = "MyText"

Something like this.  How do you set a property to be an array ?

Option Explicit
Private ArrayOfProperties(660 To 670) As String

Public Property Get MyArrayProp(Index As Long) As String
  MyArrayProp = ArrayOfProperties(Index)
End Property

Public Property Let MyArrayProp(Index As Long, _
NewValue As String)
  ArrayOfProperties(Index) = NewValue
End Property

Private Sub Command1_Click()
  'Set property array item 666 to some value
  Me.MyArrayProp(666) = "This is the value of property 666"
  'Retrieve the value of array item 666 from the property
  Debug.Print Me.MyArrayProp(666)
End Sub

--
Howard Henry Schlunder
 Winamp is currently playing:
 Offspring--walla walla wma

This stuff is part of a class....

Private Type udtPromotion
   Prom_ID As Long
   Prom_Name As String
   Prom_Expense As Currency
   Prom_Collection As Currency
   Prom_GST As Currency
   Prom_Member_GST As Currency
   Prom_Member_Count As Long
   Prom_Percentage As Currency
End Type
Private aryP() As udtPromotion

Public Enum colProm
   ipID
   ipName
   ipExpense
   ipCollection
   ipGST
   ipMemberGST
   ipMemberCount
   ipPercentage
End Enum

'---------------------------------------------------------------------------
Public Property Get Prom_Data(ByVal Row As Long, _
                              ByVal Col As colProm) As Variant

If (mvarProm_Count >= Row) Then

   Select Case Col
      Case ipID
         Prom_Data = aryP(Row).Prom_ID
      Case ipName
         Prom_Data = aryP(Row).Prom_Name
      Case ipExpense
         Prom_Data = aryP(Row).Prom_Expense
      Case ipCollection
         Prom_Data = aryP(Row).Prom_Collection
      Case ipGST
         Prom_Data = aryP(Row).Prom_GST
      Case ipMemberGST
         Prom_Data = aryP(Row).Prom_Member_GST
      Case ipMemberCount
         Prom_Data = aryP(Row).Prom_Member_Count
      Case ipPercentage
         Prom_Data = aryP(Row).Prom_Percentage
   End Select

Else

   Err.Raise vbObjectError, "iReconcile-Prom_Data_Get", "Subscript out of
range"

End If

End Property
'--------------------------------------------------------------------
Public Property Let Prom_Data(ByVal Row As Long, _
                              ByVal Col As colProm, _
                              ByVal Value As Variant)

On Error GoTo errhandler

If (mvarProm_Count = -1) Then

   ReDim aryP(Row) As udtPromotion

ElseIf (Row > mvarProm_Count) Then

   ReDim Preserve aryP(0) As udtPromotion

End If

mvarProm_Count = Row

Select Case Col

   Case ipID

      aryP(Row).Prom_ID = Value

   Case ipName

      aryP(Row).Prom_Name = Value

   Case ipExpense

      aryP(Row).Prom_Expense = Value

   Case ipCollection

      aryP(Row).Prom_Collection = Value

   Case ipGST

      aryP(Row).Prom_GST = Value

   Case ipMemberGST

      aryP(Row).Prom_Member_GST = Value

   Case ipMemberCount

      aryP(Row).Prom_Member_Count = Value

   Case ipPercentage

      aryP(Row).Prom_Percentage = Value

End Select

Exit Property
errhandler:

Err.Raise vbObjectError, "iReconcile-Prom_Data_Let", Err.Description

End Property

Don't know if that will help :o

John