Sub Main()

Dim oEnv as New clsD3Environment

Dim oDynArray1 As clsD3DynamicArray

Dim oDynArray2 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")

oDynArray2.brInsertStr "Joe", 2, 1

oDynArray2.brInsertStr "Sue", 2, 2

Debug.Print oDynArray2.brCString

Set oEnv = Nothing

End Sub