Serialization and deserialization of custom type in VB.

Serialization and deserialization of custom type in VB.
Terms: 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 Commandmediaclick ()
  Dim I As   Integer
  Call Copymemory (( 0 ), ZZ, 4 )
 
  For I =   0   To   3
Debug. Print a (I)
  Next
  ' // Initial data
ZZ. intx =   0
ZZ. inty =   0
  Call Copymemory (ZZ, ( 0 ), 4 )
Debug. Print ZZ. intx
Debug. Print ZZ. inty
End sub

Private   Sub Form_load ()
ZZ. intx =   600
ZZ. inty =   800
End sub