JSON Listview help

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim j As JSONParser
   Dim job1 As HttpJob
   Dim ListView1 As ListView
   Dim s As String
   Dim b As Bitmap
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("Web")
   
   j.Initialize(File.ReadString(File.DirAssets, "a.json"))
   job1.Initialize("Job1", Me)
   
   Dim m1 As Map = j.NextObject
   Dim L1 As List = m1.Get("items")
   
   For Each m As Map In L1
      s = job1.Download(m.Get("item_imageUrl"))
      b = job1.GetBitmap
      ListView1.AddTwoLinesAndBitmap2( m.Get("item_name"),  "Price: "&m.Get("item_price"), b, m.Get("item_id") )
   Next

End Sub

Sub JobDone(job As HttpJob)

   If job.Success = True Then
      'Now what should I do?
   End If
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("Web")
   
   j.Initialize(File.ReadString(File.DirAssets, "a.json"))
   job1.Initialize("Job1", Me)
   
   Dim m1 As Map = j.NextObject
   Dim L1 As List = m1.Get("items")
   
   For Each m As Map In L1
      job1.Download(m.Get("item_imageUrl"))

      ListView1.AddTwoLinesAndBitmap( m.Get("item_name"),  "Price: "&m.Get("item_price"), INeedHelpHereToPassTheDownloadedImage)
   Next

End Sub

Sub JobDone (Job As HttpJob) 

    If Job.Success = True Then
      Job.GetBitmap
      
    End If
    Job.Release
   
End Sub

'Service module
Sub Process_Globals
   Dim myHttpRequest As HttpRequest
   Dim myHttpClient As HttpClient

   Dim FileName As String
End Sub

Sub Service_Create
   myHttpClient.InitializeAcceptAll("myHttpClient")
End Sub

Sub Service_Start (StartingIntent As Intent)
 Dim TaskId = 123 
 myHttpRequest.InitializeGet(Url)
 myHttpClient.Execute(EQHttpRequest, TaskId)  
End Sub

Sub myHttpClient_ResponseSuccess (Response As HttpResponse, TaskId As Int)
      Response.GetAsynchronously("ImageResponse", _ 
        File.OpenOutput(File.DirInternal, FileName, False), True, TaskId)
End Sub

Sub ImageResponse_StreamFinish (Success As Boolean, TaskId As Int)
   If Success = False Then
        Msgbox(LastException.Message, "Error")
        Return
    End If
   Dim FilePath As String
   FilePath = File.DirInternal & "/" & FileName   
        CallSub2(myActiviti, "AddToList", FilePaht)
        'if you need to to download next file, start the service again
        StartServiceAt("", DateTime.Now + 30 * 1000, True)
End Sub

Sub myHttpClient_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
   Log("ERROR HTTP REQUEST")
End Su