Imports System.Runtime.InteropServices
 
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure Test
        Public TestMember1 As Integer
    End Structure
 
    Sub GCHandleTest()
        'Instanz von Test-Struktur erstellen
        Dim t As Test
        t.TestMember1 = 1234
        'Struktur pinnen
        Dim gchOriginal As GCHandle = GCHandle.Alloc(t, GCHandleType.Pinned)
        'Pointer des GCHandles holen
        Dim pGchOrig As IntPtr = GCHandle.op_Explicit(gchOriginal)
 
        'GCHandle zurückholen. Nur zum Test ist das in der gleichen Methode
        'wie das ursprüngliche Pinnen.
        Dim gchRestored As GCHandle
        gchRestored = GCHandle.op_Explicit(pGchOrig)
        'die beiden sind wertemäßig gleich
        Debug.WriteLine(gchOriginal.Equals(gchRestored))
 
        'Test-Struct zurückholen und dumpen
        Dim oBack As Test
        oBack = CType(gchRestored.Target, Test)
        Debug.WriteLine("Wert von oBack.TestMember1: " & oBack.TestMember1)
 
        Try
            'Freigeben vom wiederhergestellten GCHandle
            gchRestored.Free()
 
            'Freigeben des Original-GCHandles: KEINE Exception
            gchOriginal.Free()
 
           'Zur Demonstration: Ein GCHandle mittels derselben 
            'Instanz zweimal freigeben gibt eine Exception
            gchOriginal.Free()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
    End Sub