Set a new Class module using a pointer to another one

Goodmorning :)

My purpose is to reach a result like this:

Code:

---

Dim clsA As New Class1
Dim clsB As New Class1

Set clsB = clsA

---

but using pointers to object and the CopyMemory API call.

The reasons why I've to pass trough this way are several and hard to explain.

I tried this code:

Code:

---

Dim ptrA As Long, ptrB As Long

ptrA = ObjPtr(clsA)
ptrB = ObjPtr(clsB)
CopyMemory ptrB, ptrA, 4

---

but nothing happens, because (although clsA is initialized) clsB always seems to be empty (any property value of clsA is set to clsB).

I also tried to call the ObjPtr() function inside the Class1 module like this:

Code:

---

ptr = ObjPtr(Me)

---

but neither this time I gave results.

Can you help me?

You need to place the first set of calls into a normal MODULE, and set the references to PUBLIC. Then, they will be shared throughout the application.