Dim MyList As List
MyList.Initialize
Dim VertexNo As Int = 200
For i= 0 To VertexNo -1
MyList.Add(CreateTerraceModel ("Point" & i, i, i+5.5, i*2+ 13.65)) 'use your own dappropriate data
Next
'Save custom type list to a file
Dim ser As B4XSerializator
Dim bytes() As Byte = ser.ConvertObjectToBytes(MyList)
File.WriteBytes(xui.DefaultFolder,"mytype.dat",bytes)
'Below read custom type file list
Dim bytes() As Byte = File.ReadBytes(xui.DefaultFolder,"mytype.dat")
Dim l As List = ser.ConvertBytesToObject(bytes)
'display data to confirm their presence or save the data to your database: