使用Cleanup方法避免循環引用

為了能看看這一方面的范例，可以建立一個標准的EXEVB工程。添加兩個類模塊，Class1和Class2，在Class1中添加如下的代碼：

DimobjClass2AsClass2

PrivateSubClass_Initialize()
　　Debug.PrintTypeName(Me)&".Initialize"

SetobjClass2=NewClass2
　　SetobjClass2.Class1=Me
　　EndSub

PrivateSubClass_Terminate()
　　SetobjClass2=Nothing
　　Debug.PrintTypeName(Me)&".Terminate"
　　EndSub

　　在Class2中添加如下的代碼：

DimobjClass1AsClass1

PublicPropertySetClass1(ByRefNewValueAsClass1)
　　SetobjClass1=NewValue
　　EndProperty

PrivateSubClass_Initialize()
　　Debug.PrintTypeName(Me)&".Initialize"
　　EndSub

PrivateSubClass_Terminate()
　　SetobjClass1=Nothing
　　Debug.PrintTypeName(Me)&".Terminate"
　　EndSub

->