Public Class Form1
Public bb As New SortedList
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim class1 As New Class1("第1个类")
bb.Add(0, class1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim class1 As New Class1("第2个类")
Dim t As Class1 = bb.Item(0)
't.Dispose()
't = Nothing
'bb.Remove(0)
bb.Add(0, class1)
End Sub
End Class
Public Class Class1
Public aa As String
Public WithEvents t As New Timer
Sub New(ByVal value As String)
aa = value
t.Interval = 1000
t.Start()
End Sub
Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t.Tick
Debug.WriteLine(Now.ToString & "---->" & aa)
End Sub
End Class
因为Form1_Load里创建的class1类的实例是过程内的私有成员，为了以后销毁，所以存在一个集合中，这时，每秒会 debug 出：时间 + “第1个类”；
当在Button1_Click里在创建一个class1类的实例里，想让Form1_Load中创建的那个类销毁，试过nothing,集合的remove，甚至Dispose(Dispose不是这段代码)，每秒会 debug 出：时间 + “第1个类”，换行，+时间 + “第2个类”，说明第一个类的实例实际还在运行中；
有人提议在Dispose中将class1的t销毁，时间 + “第1个类”是不出现了，但这从理论上实际上只是将第一个实例的对象t销毁了，第一个实例仍然存在！
请问，vb.net下如何销毁类的实例？！
