这个 CopyMemory 错在哪里呢

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, ByVal Source As Any, ByVal Length As Long)

Private Sub Form_Load()

Dim c As New Collection

c.Add 1
c.Add 2

Dim c2 As Collection

CopyMemory VarPtr(c2), VarPtr(c), 4

Debug.Print c2(1) ' 崩溃

End Sub

Collection不行，用数组。

用数组 ????????? 不懂