ByVal AesKey() As Byte
Dim AesKeyObj As GCHandle = GCHandle.Alloc(AesKey, GCHandleType.Pinned)
Dim AesKeyPtr As IntPtr = AesKeyObj.AddrOfPinnedObject
'AesKeyPtr 就是AesKey的指針
If AesKeyObj.IsAllocated Then AesKeyObj.Free()