DonManfred, please
Sub JobDone(Job As HttpJob)
If Job.Success Then
Dim parser As JSONParser
parser.Initialize(Job.getstring)
Select Job.JobName
Dim root As Map = parser.NextObject
Dim msg As List = root.Get("msg")
' Dim success As String = root.Get("success")
' If success = True Then
Lista_CLV.Clear
For Each colmsg As Map In msg
Dim codigo As String = colmsg.Get("codigo")
Dim nome As String = colmsg.Get("nome")
Dim m As Map = CreateMap("Codigo": codigo, "Nome": nome)
Lista_CLV.AddTextItem (codigo & CRLF & nome, m)
Sub Lista_CLV_ItemClick (Index As Int, Value As Object)
?????????? I don't know what to do here
End Sub