Sub Main()

Dim oEnv as New clsD3Environment

Dim oDynArray1 As clsD3DynamicArray

Dim oDynArray2 As clsD3DynamicArray

Dim oDynArray3 As clsD3DynamicArray

’ Allocate an empty dynamic array

Set oDynArray1 = oEnv.brOpenDynamicArray

’ Fill the dynamic array

oDynArray1.brInsertStr "Quinn", 1 ’ Attribute 1

oDynArray1.brInsertStr "Joe", 2, 1 ’ Attribute 2, Value 1

oDynArray1.brInsertStr "Sue", 2, 2 ’ Attribute 2, Value 2

Debug.Print oDynArray1.brCString

’ Allocate a dynamic array with one element

Set oDynArray2 = oEnv.brOpenDynamicArray("Quinn")

Set oDynArray3 = oEnv.brOpenDynamicArray

oDynArray3.brCString = "Joe" & D3VMChr & "Sue"

’ Insert a dynamic array into the another

oDynArray2.brInsert oDynArray3, 2

’ oDynArray3 is now attribute 2 of oDynArray2

’ Same result as oDynArray1

Debug.Print oDynArray2.brCString

End Sub