Android Question download images

Sub BuildItems
    If links.Size = 0 Then
    Return
    End If
    clv.Clear
    Dim m As Map
    m.Initialize
            For Each link As String In links
            Do While ii<10 Then
            fotoprod.Initialize("fotoprod")
            m.Put(fotoprod, "http://www.loc.gov/rr/print/list/" & link)       
          ImageViews.Add(fotoprod)
            Log("aa "&ImageViews.Size)
            Log(m.Size)   
            clv.Add(CreateListItem("" ,1%x, 1%y), 34%y, i)'llama a meter los productos en el clv
            ii=ii+1
                Loop           
            Next
    CallSubDelayed2(ImageDownloader, "Download", m)
End Sub

Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel'aqui va como se meten las cosas en el clv
    If ii=11 Then ii=10
p.Initialize("")'inicia el panel
    p.Color = Colors.Transparent
'here to put images into clv
fotoprod.Initialize("")
fotoprod.SetBackgroundImage(LoadBitmap(File.DirAssets,(ii&".jpg")))
            fotoprod.Gravity=Gravity.FILL
            Log("acccccca "&ImageViews.Size)
            fotoprod= ImageViews.Get(ii-1)
            p.AddView(fotoprod,  2%x,1%y, 40%x,23%y) 'view #1
End Sub

Sub BuildItems
Dim aa As Int=1
    If links.Size = 0 Then
    Return
    End If
    clv.Clear
    Dim mm As Map
    mm.Initialize
            For Each link As String In links     
            fotoprod.Initialize("fotoprod")      
            mm.Put(fotoprod, "http://www.loc.gov/rr/print/list/" & link)       
          ImageViews.Add(fotoprod)   
            Log("aa "&ImageViews.Size)   
            Log(mm.Size)   
                If aa<11 Then
            clv.Add(CreateListItem("" ,1%x, 1%y), 34%y, i)'llama a meter los productos en el clv
            aa=aa+1
                End If           
            Next
    CallSubDelayed2(ImageDownloader, "Download", mm)
End Sub