Code:
Declare PtrSafe Sub CopyMemoryX64 Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)
Dim ClassA As New Class1
Dim Address1 As LongPtr
Address1 = GetObjSubAddressX64(ClassA, 1)
Dim A As LongPtr, B As LongPtr, c As LongPtr, Result As LongPtr
A = 11
B = 22
c = 33
c = CallWindowProc(ByVal Address1, ObjPtr(ClassA), ByVal A, ByVal B, VarPtr(Result))
MsgBox "Result=" & ResultCode:
Public Function Add2(ByVal A As LongPtr, ByVal B As LongPtr) As LongPtr
MsgBox "excel class1 A=" & A & ",B=" & B
Add2 = A + B
End Function