Dim pm As PackageManager
Dim packageList As List = pm.GetInstalledPackages
For i = 0 To packageList.Size - 1
Dim packageName As String = packageList.Get(i)
Dim appIntent As Intent
appIntent = pm.GetApplicationIntent(packageName)
If appIntent.IsInitialized Then
Dim app As Application
app.packageName = packageName
app.ApplicationName=pm.GetApplicationLabel(packageName)
app.Icon = pm.GetApplicationIcon(packageName)
appList.Add(app)
End If
Next