Android Question Downloader Image to ListView

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim Bitmap, Bitmap1, Bitmap2,Bitmap3,Bitmap4,Bitmap5,Bitmap6,Bitmap7,Bitmap8, Bitmap9, Bitmap10,Bitmap11,Bitmap12,Bitmap13,Bitmap14,Bitmap15,Bitmap16, Bitmap17, Bitmap18,Bitmap19,Bitmap20,Bitmap21,Bitmap22 As Bitmap
    Dim listed As ListView
    Dim res As String
    Dim chanels As HttpJob
    Dim ret As String
    Dim parser As JSONParser
    Dim m As Map
    Dim links As Map
End Sub

Sub Activity_Create(FirstTime As Boolean)

chanels.Initialize("Chanel", Me)
    chanels.Download2("http://addres/file.php", _
      Array As String("imei", imei))
   
   
' Crea listed (ListView)
    listed.Initialize("listed")
    listed.Color=Colors.Black
    listed.TwoLinesLayout.ItemHeight = 50dip
    listed.TwoLinesLayout.Label.TextSize = 10dip
    listed.TwoLinesLayout.Label.TextColor = Colors.Blue
    listed.TwoLinesLayout.Label.Gravity = Gravity.CENTER
    listed.FastScrollEnabled=True
    listed.clear
   
       
       
    Activity.AddView(listed, 0dip, 40dip, 100%x, 420dip)
    Activity.AddMenuItem("Volver","boton_menu")


End Sub


Sub Activity_Resume
    CallSub(ImageDownloader, "ActivityIsPaused")
End Sub


Sub JobDone (Job As HttpJob)
  If Job.Success = True Then
      Select Job.JobName
       
    Case "Chanel"
        Dim i As Int    
     ret = Job.GetString
     parser.Initialize(ret)       
    Dim root As List = parser.NextArray
    For Each colroot As Map In root
        i = i + 1  
    Dim name As String = colroot.Get("name")
    Dim content As String = colroot.Get("content")
    Dim image As String = colroot.Get("image")
    Bitmap1.Initialize(File.DirAssets, img)
    links.Initialize
    links.Put(Bitmap1, "http://image.com/image.png")
    CallSubDelayed2(ImageDownloader, "Download", links)
    listado.AddTwoLinesAndBitmap(name, content,Bitmap1) 
    Next
    End Select
  Else
      ToastMessageShow("Error: " & Job.ErrorMessage, True)
  End If
  Job.Release
End Sub

Bitmap1.Initialize(File.DirAssets, img)