VB.Net by API/System/WeakReference
New WeakReference
<source lang="vbnet">
public class Test
public Shared Sub Main Dim wr As WeakReference Dim obj As New Person() wr = New WeakReference(obj) End Sub
End class
Public Class Person
Implements IDisposable Private Disposed As Boolean = False Public Overloads Sub Dispose() Implements IDisposable.Dispose Dispose(True) System.GC.SuppressFinalize(Me) End Sub Protected Overloads Sub Dispose(ByVal disposing As Boolean) Me.Disposed = True End Sub Protected Overrides Sub finalize() Console.WriteLine("In Person Finalize") MyBase.Finalize() Me.Dispose(False) End Sub
End Class
</source>