Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _            (lpDest As Any, lpSource As Any, ByVal nCount As Long)Private Sub Form_Load()    Dim c As New clsTest    c.Name = "Hello,World!"        Dim addr As Long    addr = ObjPtr(c)        Dim c2 As clsTest    CopyMemory c2, addr, 4    MsgBox c2.Name    c2.Name = "haha"    CopyMemory c2, 0&, 4End Sub