lv.Clear
Dim pm As PackageManager
Dim packages As List
packages = pm.GetInstalledPackages
For i = 0 To packages.Size - 1
Dim p As String = packages.Get(i)
Dim bdw As BitmapDrawable = pm.GetApplicationIcon(p)
lv.AddTwoLinesAndBitmap(pm.GetApplicationLabel(p),packages.Get(i),bdw.Bitmap)
Log(packages.Get(i))
Next