VB6 如何产生像 Dim Q As New Collection 无止尽的状态

Question

Private Sub Form_Load()  Dim Q As New Collection  Q.Add 1
  Q.Add QEnd Sub如何用 VB6 的 Class 产生出如下图的情形http://docs.google.com/Doc?id=dhpf4p4x_258qddtxf2&invite=hs579zg

Answer 1

这会引起内存泄漏，我在 http://topic.csdn.net/u/20081204/10/e1fcf315-82c1-47b3-9360-845fd5e6103a.html 中有解释
解决方式：
1)不要用 As New 定义
2)对象要显式释放
Private Sub Form_Load() 
  Dim Q As Collection   set Q = new collection
  Q.Add 1 
  Q.Add Q   Q.Clear
  set Q = nothing
End Sub 

Answer 2

Tiger_Zhao 大可以了3Q ^^