Private Declare Sub CopyMemoryTwo Lib "kernel32" Alias "RtlMoveMemory" _
(ByVal hpvDest As Any, ByVal hpvSource&, ByVal cbCopy As Long)
 
Public Type POINTAPI
        x As Long
        y As Long
End Type
 
Dim c As POINTAPI
 
CopyMemoryTwo(c, pFileMap, 8)

Declare Function MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
(ByRef dest As IntPtr, ByRef src As IntPtr, _
ByVal size As Integer) As IntPtr
 
Public Structure POINTAPI
    Dim x As Long
    Dim y As Long
End Structure
 
Dim c As IntPtr
MoveMemory(c, pFileMap, 8)