Public Class testClass
    Implements IDisposable
 
    Public Shared instanceList As New List(Of testClass)
    Private _name As String
 
    Public Sub New(ByVal Name As String)
        instanceList.Add(Me)
        _name = Name
    End Sub
 
 
#Region "IDisposable Support"
    Private disposedValue As Boolean ' So ermitteln Sie überflüssige Aufrufe
 
    ' IDisposable
    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        Debug.WriteLine("Protected Dispose von " & _name)
        If Not Me.disposedValue Then
            If disposing Then
                instanceList.Remove(Me)
            End If
        End If
        Me.disposedValue = True
    End Sub
 
 
    ' Dieser Code wird von Visual Basic hinzugefügt, um das Dispose-Muster 
    ' richtig zu implementieren.
    Public Sub Dispose() Implements IDisposable.Dispose
        Debug.WriteLine("Public Dispose von " & _name)
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region
 
    Protected Overrides Sub Finalize()
        Debug.WriteLine("Finalize von " & _name)
        instanceList.Remove(Me)
        MyBase.Finalize()
    End Sub
End Class

 
Module Module1
 
    Sub Main()
        Console.ReadLine()
 
        Dim v1 As New testClass("v1")
        Debug.WriteLine("Instanzen: " & testClass.instanceList.Count)
        Console.ReadLine()
 
        Dim v2 As New testClass("v2")
        Debug.WriteLine("Instanzen: " & testClass.instanceList.Count)
        Console.ReadLine()
 
        v1 = New testClass("v1 Neu")
        Debug.WriteLine("Instanzen: " & testClass.instanceList.Count)
        Console.ReadLine()
 
        GC.Collect()
        GC.WaitForPendingFinalizers()
        Debug.WriteLine("Instanzen: " & testClass.instanceList.Count)
        Console.ReadLine()
 
        v1.Dispose()
        v2.Dispose()
        Debug.WriteLine("Instanzen: " & testClass.instanceList.Count)
        Console.ReadLine()
 
        GC.Collect()
        GC.WaitForPendingFinalizers()
        Debug.WriteLine("Instanzen: " & testClass.instanceList.Count)
        Console.ReadLine()
 
    End Sub
 
End Module