Public Class MyTestClass
	  Implements System.IDisposable
	  Private Shared Instances As Integer
	  Shared Sub New()
	     MessageBox.Show("Die 1. Instanz wurde erzeugt!")		  	
	  End Sub
	  Sub New ()
	  	 Instances += 1
	  End Sub
	  Public Overloads Sub Dispose() Implements IDisposable.Dispose
	     GC.SuppressFinalize(Me)
	     Me.Finalize()
      End Sub
      Protected Overrides Sub Finalize()
		 Instances -= 1
         MyBase.Finalize()
      End Sub
      Public Shared Function GetInstances() As Integer
         Return Instances
      End Function   
    End Class

Dim c() As MyTestClass = New MyTestClass(10){}
For a As Integer = 0 to 5
  c(a) = New MyTestClass
  MessageBox.Show ("Anzahl der Instanzen: " + MyTestClass.GetInstances.ToString( _
    ))
Next a
c(0).Dispose()
c(0) = Nothing
c(1).Dispose()
c(1) = Nothing
MessageBox.Show ("Anzahl der Instanzen nach d. Zerstörung: " + _
  MyTestClass.GetInstances.ToString())