How to copy an object?

[winterslam]

Dim a As Object
Dim b As Object
Set b = a

Set b = a will not copy a to b. It only changes the reference.




How do I copy objects just like in C++?