Android Question App stop work without logs

Case "jobchecafotos" 'RESPOSTA EM JSON DA JOB CHECA FOTOS
Try
Dim parser As JSONParser
parser.Initialize(Job.GetString)
Dim root As Map = parser.NextObject

'SE RESPOSTAR IGUAL FALSE RETORNA
Dim Success As String = root.Get("Success")
If Success = "false" Then Return


'SE TIVER FOTOS NAO ENVIADAS EXECUTA O LOOP ABAIXO
'LISTA LOOP DE IMAGENS NÃO ENVIADAS COLOCANDO ID E URL REAL EM SQL LOCAL
Dim NotSent As Map = root.Get("NotSent")
Dim Has As String = NotSent.Get("Has")
If Has = "true" Then 'FAZ CHECAGEM SE TEM OU NÃO FOTOS VINDAS NO JSON
Dim Amount As Int = NotSent.Get("Amount") 'PEGA QUANTIDADE DE FOTOS VINDAS
Dim s(Amount) As String
Dim urls, Id As String
Dim i As Int
Dim Thumbnail1 As List = NotSent.Get("Thumbnails")
For Each colThumbnails As Map In Thumbnail1
GridView.ClearMemoryCache 'IMPORTANTE LIMPA CACHE DA MEMORIA INTERNA
GridView.ClearDiskCache 'IMPORTANTE LIMPA CACHE DO SD EXTERNO
GridView.ClearCache 'IMPORTANTE LIMPA CACHE DO SD EXTERNO
urls = colThumbnails.Get("Url")
Id = colThumbnails.Get("PhotoID")
s(i) = urls
i = i + 1
kv.putsimple("imgnurl"&i,urls.Replace("Thumbnails" , "Resamplings")) 'SALVA LOCAL IMG URL NÃO ENVIADAS
kv.putsimple("imgnid"&i, Id) 'SALVA LOCAL O ID DA FOTO
Next
GridView.ShowFromWeb(s,False) 'BAIXA NO GRIDVIEW IMAGENS
DoEvents
End If


'SE TIVER FOTOS ENVIADAS EXECUTA O LOOP ABAIXO
'LISTA LOOP DE IMAGENS ENVIADAS COLOCANDO ID E URL DA THUMBNAIL NO SQL LOCAL
Dim Sent2 As Map = root.Get("Sent")
Dim Has2 As String = Sent2.Get("Has")
If Has2 = "true" Then 'FAZ CHECAGEM SE TEM OU NÃO FOTOS VINDAS NO JSON
Dim Amount2 As Int = Sent2.Get("Amount") 'PEGA QUANTIDADE VINDA DE FOTOS
Dim s2(Amount2) As String
Dim UrlS2, id2 As String
Dim i2 As Int
Dim Thumbnail2 As List = Sent2.Get("Thumbnails")
For Each colThumbnails2 As Map In Thumbnail2
GridView2.ClearMemoryCache 'IMPORTANTE LIMPA CACHE DA MEMORIA INTERNA
GridView2.ClearDiskCache 'IMPORTANTE LIMPA CACHE DO SD EXTERNO
GridView2.ClearCache 'IMPORTANTE LIMPA CACHE DO SD EXTERNO
UrlS2 = colThumbnails2.Get("Url")
id2 = colThumbnails2.Get("PhotoID")
s2(i2) = UrlS2
i2 = i2 + 1
kv.putsimple("imgeurl"&i2,UrlS2) 'SALVA URL DO THUMBNAIL DA IMG ENVIADA, QTD CONFORME O LOOP....
kv.putsimple("imgeid"&i2, id2) 'SALVA ID DAS IMAGENS ENVIADAS PARA FAZER REQUEST DE INFORMAÇÕES DEPOIS....
Next
GridView2.ShowFromWeb(s2,False)
DoEvents
End If