Try
Dim s As String = carga.GetString
Dim root As Map = s.As(JSON).ToMap
Dim data As List = root.Get("resultado")
For Each m As Map In data
CustomListView1.Add(CreateItem(CustomListView1.AsView.Width, m.Get("departamento"), m.Get("servicios"), m.Get("realizado"), m.Get("fecha"), m.Get("observacion")), m.Get("observacion"))
Next
ProgressDialogHide
Catch
ProgressDialogHide
Msgbox2Async("Error al procesar", "Aviso", "Aceptar", "", "", Null, False)
End Try