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