Dim ser As B4XSerializator
'--- WRITE
Dim p As CustomType
p.Initialize
p.StartTime = 50
Dim mt As Map = CreateMap("K1": "V1", "K2":1, "K3":p)
File.WriteBytes(File.DirInternal, "Test.txt", ser.ConvertObjectToBytes(mt))
'--- READ
Dim mt2 As Map = ser.ConvertBytesToObject(File.ReadBytes(File.DirInternal, "Test.txt"))
Dim p2 As CustomType = mt2.Get("K3").As(CustomType)
Log(p2)