Private Function VarPtr(ByVal o As Object) As IntPtr
        Dim GC As GCHandle = GCHandle.Alloc(o, GCHandleType.Pinned)
        Dim ret As Integer = GC.AddrOfPinnedObject.ToInt32()
        GC.Free()
        Return New IntPtr(ret)
    End Function