Class 为何不能 互存

Question

{ Class A1 内容如下 }Dim A(100)Function ADD()
   A(1) = 1234
End Function
{ Form1 内容如下 }Dim A As New A1
Dim B As New A1B = A      ' 想把 A "正个" Copy 到 B ----> 失败 , 因为 VB6 不允许
Set B = A  '  VB6 允许 , 但是 B 根本不是一个 "全新 的 Copy" , 因为使用 B.ADD 时会发现 A.A(1) 变成 1234
           '  所以 B 根本只是个指向 A 的 指针  

Answer 1

由于A、B都是对象变量
B = A  这样将A赋给B肯定不行，对象变量只能用Set语句赋值，所以
Set B = A  是可以的，强调一下，这是赋值语句，现在类实例B就是A，那么，B.ADD当然就是A.ADD的结果了，很正常。

Answer 2

对象不能用=号赋,要用set 
变量是用=号赋值