vb如何实现type类型序列化及反序列化?

Question

vb如何实现type类型序列化及反序列化?序列化成 byte() 数组，并反序列化为自定义 type.求助```

Answer 1

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Type xx
     intX As Integer
     intY As Integer
End Type
Dim zz As xx
Dim a(3) As Byte
Private Sub Command1_Click()
 Dim i As Integer
 Call CopyMemory(a(0), zz, 4)
 
 For i = 0 To 3
  Debug.Print a(i)
 Next
 '//initial data
 zz.intX = 0
 zz.intY = 0
 Call CopyMemory(zz, a(0), 4)
 Debug.Print zz.intX
 Debug.Print zz.intY
End SubPrivate Sub Form_Load()
  zz.intX = 600
  zz.intY = 800
End Sub

Answer 2

CopyMemory不怎么回用，望高人详解一下，谢谢！