Case "verificaupdates"
simcategoria = False
painelseries.visible = False
painelsobre.Visible = False
listacategorias.Visible = False
Dim parser As JSONParser
Dim M As Map
M.Initialize
M.Clear
clv.Clear
CallSub(ImageDownloader, "ClearCache")
parser.Initialize(Job.GetString)
Dim root As List = parser.NextArray
For Each colroot As Map In root
Dim capa_img As String = colroot.Get("capa_img")
Dim id As String = colroot.Get("id")
Dim titulo As String = colroot.Get("titulo")
Dim descricaocurta As String = colroot.Get("descricaocurta")
Dim pa As Panel
pa.Initialize("")
clv.Add(pa, 65%y, id)
pa.LoadLayout("ListItem")
lbtitulo.Typeface = fonte
lbdescricao.Typeface = fonte
lbtitulo.Text = titulo
lbdescricao.Text = descricaocurta
M.Put(capa, capa_img)
Next
CallSubDelayed2(ImageDownloader, "Download", M)
myProgressDialog.Hide