'Setting the list as "root" from my http call if "OptoLensListLocal" was null
Dim parser As JSONParser
parser.Initialize(result)
Dim root As List = parser.NextArray
kvs.Initialize(File.dirdocuments,"OptoLensListLocal")
If(kvs.Get("OptoLensListLocal")=Null)Then
kvs.PutEncrypted("OptoLensListLocal",root,"x123y")
End If