ЗЫ вот еще раз перечитал набор сообщений - есть подозрение, что КОПИРОВАНИЕ коллекций Вам в действительности не нужно.

Можно обойтись и без него, но нужно. Именно независимая копия.


Ok. Обсудим более конкретные примеры:
В данном случае используя библиотеку типов для доступа к IUnknown получим раннее связывание.
На основе этого кода, можно сделать свою коллекцию, сохраняя пойнтеры и контролируя их через IUnknown.

Public Sub Store(objThis As Object) As Long
Dim iU As IShellFolderEx_TLB.IUnknown

Set iU = objThis
iU.AddRef
Set iU = Nothing

Store = ObjPtr(objThis)
' objThis cannot terminate until we call iU.Release on it

End Sub


' To Retrieve the Object From the Long Value:
Private Property Get ObjectFromPtr(ByVal lPtr As Long) As Object
Dim objT As Object
' Bruce McKinney's code for getting an Object from the
' object pointer:
CopyMemory objT, lPtr, 4
Set ObjectFromPtr = objT
CopyMemory objT, 0&, 4
End Property


' To Delete The Object:
Public Sub Delete(ByVal lPtr As Long) As Long

Dim objThis As Object
Set objThis = ObjectFromPtr(lPtr)

Dim iU As IShellFolderEx_TLB.IUnknown
Set iU = objThis
iU.Release
Set iU = Nothing

Set objThis = Nothing
' objThis now terminates if there are no other external
' references to it.

End Sub


Точно так же, используя библиотеку типов , можно получить раннее связывание и для IMalloc.
С его помощью резервировать память под обьекты, ссылки на которые хранить в массиве.

Public Function SaveToMemory(ByRef b() as Byte) As Long
Dim lSize As Long
Dim lPtr As Long

On Error Resume Next ' Error checking: UBound/LBound can fail.
lSize = UBound(b) - LBound(b)
If Err.Number=0 Then
lSize = lSize + 1
Else
' No Data:
lSize = 0
End If

On Error Goto 0
lPtr = isMalloc.Alloc(lSize + 4)
If Not (lPtr=0) Then
' Store the size of the array:
CopyMemory ByVal lPtr, lSize, 4
If lSize > 0 Then
' Store the array:
CopyMemory ByVal lPtr + 4, b(0), lSize
End If
End If

' Return the Value of lPtr
SaveToMemory = lPtr
End Function

' To Restore the array from the Pointer lPtr:
Public Sub RestoreFromMemory(ByVal lPtr As Long, ByRef b() as Byte)
Dim lSize As Long

Erase b
If Not (lPtr = 0) Then
' Get the size of the array:
CopyMemory lSize, ByVal lPtr, 4
If lSize > 0 Then
ReDim b(0 To lSize-1) As Byte
CopyMemory b(0), ByVal lPtr, lSize
End If
End If

End Sub









Magnus

Вообщем то , мне хотелось получить простой ответ, можно или нет? Если да то как?
Резюмируя, можно сказать так: простого способа нет.
Применительно к копированию: более быстрый доступ к элементам коллекции.

Источник кода:
http://www.vbaccelerator.com/codelib/imalloc/objstore.htm


Magnus