Sub CreateCustomList
dbCursor.Position = 0
For i = 0 To dbCursor.RowCount - 1
dbCursor.Position = i
clv.Add(CreatePanel(i), 70dip, i)
Next
End Sub
Sub CreatePanel(i As Int) As Panel
Dim p As Panel
p.Initialize("panel")
Activity.addview(p,0,0,100%x,100%y)
p.LoadLayout("cellprofile")
p.RemoveView
lbName.Text = dbCursor.GetString("name")
DownloadImage(dbCursor.GetString("image"), ivPhoto)
Return p
End Sub