Imports System
Imports System.Runtime.InteropServices

Class UnmanagedMemory
  Implements IDisposable

  Private ptr As IntPtr ' アンマネージメモリ領域を参照するポインタ

  Public Sub New(ByVal size As Integer)
    ptr = Marshal.AllocHGlobal(size)
  End Sub

  Public Sub Clear()
    ' Ptrが0の場合(すでにDisposeメソッドで解放済みの場合)、例外ObjectDisposedExceptionをスローする
    ' (例外の原因となるオブジェクト名として型名を指定する)
    If ptr = IntPtr.Zero Then Throw New ObjectDisposedException(Me.GetType().FullName)

    ' そうでない場合はメソッドの通常の処理を行う
  End Sub

  Public Sub Dispose() Implements IDisposable.Dispose
    ' すでに解放されている場合は何もしない(DisposeメソッドはObjectDisposedExceptionをスローしてはならない)
    If ptr = IntPtr.Zero Then Return

    Marshal.FreeHGlobal(ptr)

    ' 解放済みであることを示すためにIntPtr.Zeroを設定する
    ptr = IntPtr.Zero
  End Sub
End Class

Class Sample
  Shared Sub Main()
    ' IDisposableインターフェイスを実装するオブジェクトを作成する
    ' (本来ならUsingステートメントを使ったほうがよいが、例示のため省略)
    Dim mem As New UnmanagedMemory(4)

    ' Disposeメソッドを呼び出し、アンマネージリソースを解放する
    mem.Dispose()

    ' アンマネージリソースへのアクセスを試みる
    ' (オブジェクトはすでに破棄されているため、ObjectDisposedExceptionとなる)
    mem.Clear()
  End Sub
End Class

ハンドルされていない例外: System.ObjectDisposedException: 破棄されたオブジェクトにアクセスできません。
オブジェクト名 'UnmanagedMemory' です。