Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Main")
Dim JSON As JSONParser
Dim Map1 As Map
JSON.Initialize(File.ReadString(File.DirAssets, "schools.txt"))
Map1 = JSON.NextObject
Dim m As Map
Dim featuresList As List
featuresList = Map1.Get("features")
Msgbox(featuresList.Get(0),"")
For i = 0 To featuresList.Size - 1
m = featuresList.Get(i)
m = m.Get("properties")
ListView1.AddTwoLines2(m.Get("navn"),m.Get("adresse"),m.Get("id"))
Next
End Sub