B4XPref.LoadFromJson(File.ReadString(File.DirAssets, "yourfile.json"))
Dim List1 As List
List1.Initialize
List1.AddAll(Array As Int(1, 2, 3, 4, 5))
B4XPref.SetOptions("yourField",List)
Wait For (B4XPref.ShowDialog(m, "OK", "CANCEL")) Complete (Result As Int)
B4XPref.LoadFromJson(File.ReadString(File.DirAssets, "yourfile.json"))
Dim List1 As List
List1.Initialize
List1.AddAll(Array As Int(1, 2, 3, 4, 5))
B4XPref.SetOptions("yourField",List)
Wait For (B4XPref.ShowDialog(m, "OK", "CANCEL")) Complete (Result As Int)