Sub Result(OnResult As OkHttpResponse)
ProgressDialogHide
If Not OnResult.Success Then <---------------------------------------------------- error
ToastMessageShow("Error: "&OnResult.ErrorMessage, True) <--------------------------error
End If <--------------------------------------------------------------------------------------error
Dim xml As XmlLayoutBuilder
xml.InitializeFromString(OnResult.GetString("UTF8"))
Dim items As List = xml.GetItems("Item")
ListView1.Clear
For Each item As Map In items
Dim attributes As Map = item.Get("ItemAttributes")
ListView1.AddSingleLine(attributes.Get("Title"))
Next
End Sub