Object1 = CreateObject("Custom")
Object1.AddProperyt("Test", "Green")
Object 2 = Object1
Object2.Test = "Red"
?Object1.Test     && Returns Red not Green

Object 2 = Object1   && apparently doesn't copy the object, it just gives it an additional name.