Public Class SomeClass
Implements IDisposable
[COLOR="Red"]Private clock As New Timer[/COLOR]
Private disposedValue As Boolean = False ' To detect redundant calls
' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
' TODO: free other state (managed objects).
[COLOR="Red"]Me.clock.Dispose()[/COLOR]
End If
' TODO: free your own state (unmanaged objects).
' TODO: set large fields to null.
[COLOR="Red"]Me.clock = Nothing[/COLOR]
End If
Me.disposedValue = True
End Sub
#Region " IDisposable Support "
' This code added by Visual Basic to correctly implement the disposable pattern.
Public Sub Dispose() Implements IDisposable.Dispose
' Do not change this code. Put cleanup code in Dispose(ByVal disposing As Boolean) above.
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
#End Region
End Class