Imports System

​

Public Class Program

    Public Shared Sub Main()

        Console.WriteLine("Get A Disposable")

        WithMyDisposable(

            Sub(myDisposable)

                Console.WriteLine("Are The Managed Resources Disposed on object: " & myDisposable.IsManagedResourcesDisposed.ToString())

                Console.WriteLine("Are The Unmanaged Resources Disposed on object: " & myDisposable.IsUnmanagedResourcesDisposed.ToString())

            End Sub)

    End Sub

​

    Public Shared Sub WithMyDisposable(ByVal action As Action(Of MyDisposable))

        Console.WriteLine("Creating Disposable")

        Using disposable = New MyDisposable()

            action(disposable)

        End Using

    End Sub

End Class

​

Public Class MyDisposable

    Implements IDisposable

​

    Public Property IsManagedResourcesDisposed As Boolean

    Public Property IsUnmanagedResourcesDisposed As Boolean

​

    Protected Overridable Overloads Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            IsManagedResourcesDisposed = True

            Console.WriteLine("Disposing of Managed Resources")

        End If

​

        IsUnmanagedResourcesDisposed = True

        Console.WriteLine("Disposing of Unmanaged Resources")

    End Sub

​

    Public Overloads Sub Dispose() Implements System.IDisposable.Dispose

        Dispose(True)

        GC.SuppressFinalize(Me)

    End Sub

End Class

​