Sub Einlesen
ListView1.clear
Dim pm As PackageManager
Dim bdw As BitmapDrawable
ListView1.Clear
pl = pm.GetInstalledPackages
For a=0 To pl.Size-1
'ProgressDialogShow("Apps werden geladen..." & a)
' Wer mag kann hier zur Überbrückung der Wartezeit
' einen ProgressDialog einblenden
If pl.Get(a)="com.android.systemui" Then Continue
' Diese obere Zeile bewirkt, dass das Package erkannt und übergangen wird (Continue)
bdw = pm.GetApplicationIcon(pl.Get(a))
ListView1.AddTwoLinesAndBitmap2(pm.GetApplicationLabel(pl.Get(a)),pl.Get(a), bdw.Bitmap, pl.Get(a))
Next
' ProgressDialogHide
' Um den Warte-Dialog zu schließe
End Sub