VB里将自定义type类型序列化,及反序列化.

VB里将自定义type类型序列化,及反序列化.
可用语网络传输的数据协议上:

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 Sub

Private   Sub  Form_Load()
  zz.intX  =   600
  zz.intY  =   800
End Sub