Private Declare Function MoveMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Dest As Object, ByRef Src As Object, ByVal Size As Int32) As Int32
Private Structure IMAGE_EXPORT_DIRECTORY
Public Characteristics As Int32
Public TimeDateStamp As Int32
Public MajorVersion As Short
Public MinorVersion As Short
Public lpName As Int32
Public Base As Int32
Public NumberOfFunctions As Int32
Public NumberOfNames As Int32
Public lpAddressOfFunctions As Int32
Public lpAddressOfNames As Int32
Public lpAddressOfNameOrdinals As Int32
End Structure
Dim pExportDirectory As Int32
Dim ExportDirectory As IMAGE_EXPORT_DIRECTORY
MoveMemory(ExportDirectory, pExportDirectory, Len(ExportDirectory)) [color=red]<---- This line [/color]
'The values being pass into the function are:
'ExportDirectory = ProjectName.Form1 + IMAGE_EXPORT_DIRECTORY
'pExportDirectory = 1431884864
'Len(ExportDirectory) = 44