Sub PopulateList
Dim packages, packagessort As List
Dim bt(500) As BitmapDrawable
listview1.Visible = True
Dim map1 As Map
packages = pm.GetInstalledPackages
packagessort.Initialize
For i = 0 To packages.Size - 1
    packagessort.Add(pm.GetApplicationLabel(packages.Get(i)))
Next 
packagessort.Sort(True)
For i = 0 To packagessort.Size - 1
    'bt(i) = pm.GetApplicationIcon(packages.get(i))
    'listview1.AddTwoLinesAndBitmap2(pm.GetApplicationLabel(packages.Get(i)),"",bt(i).Bitmap,packages.Get(i))
    listview1.AddSingleLine(packagessort.Get(i))
Next
map1.Initialize
Dim items As String
Dim icns As BitmapDrawable
For i = 0 To packages.Size - 1 
    items = packages.Get(i)
    bt(i) = pm.GetApplicationIcon(packages.get(i))
    Map1.put(packages.Get(i),Items(0))
    Map1.put(bt(i).Bitmap)
Next
End Sub