Public Class MyCalss
   Implements IDisposable
 
   Private disposed As Boolean = False
 
   Public Sub Dispose() Implements IDisposable.Dispose
      Dispose(disposed)
   End Sub
 
   Protected Sub Dispose(ByVal disposing As Boolean)
      If Not disposed Then
         ' Hier Code zum Bereinigen von Resources
         ' z.B. Dateien schließen, DB-Connections, Bitmaps aufräumen, ...
 
         disposed = True
      End if
   End Sub
End Class

Ralf