Imports System.Runtime.InteropServices 
Imports System.Text 
Module Module1 
    Public myVar(22) As [Byte] 
    Public myNewVar(22) As [Byte] 
    Declare Sub RtlMoveMemory Lib "Kernel32" (ByVal myDest As Int32, ByVal _
      mySource As Int32, ByVal myLength As Int32) 
    Sub Main() 
        myVar = Encoding.ASCII.GetBytes("Hallo dies ist ein Test") 
        Dim myGC As GCHandle = GCHandle.Alloc(myVar, GCHandleType.Pinned) 
        Dim myVarPointer As IntPtr = myGC.AddrOfPinnedObject() 
        myGC.Free() 
        myGC = GCHandle.Alloc(myNewVar, GCHandleType.Pinned) 
        Dim myNewVarPointer As IntPtr = myGC.AddrOfPinnedObject() 
        myGC.Free() 
        Console.WriteLine("Content of myNewVar BEFORE moving memory: " & _
          Encoding.ASCII.GetString(myNewVar)) 
        Console.WriteLine("Address: " & myVarPointer.ToInt32 & " copy To " & _
        myNewVarPointer.ToInt32) 
        RtlMoveMemory(myNewVarPointer.ToInt32, myVarPointer.ToInt32, _
        myNewVar.Length) 
        Console.WriteLine("Content of myNewVar: " & Encoding.ASCII.GetString( _
        myNewVar)) 
        Console.Read() 
    End Sub 
End Module

MfG.
Fabian Stern
-
info@smart-coding.com
http://www.smart-coding.com