Android Question Save Installed Apps Icon as File

Private Sub ShowInstalledApps
    
    Dim pm As PackageManager  'phone library
    For Each pck As String In pm.GetInstalledPackages
        If IsSystemApp(pck) <> True Then
            Dim Item As Apps
            Item.Initialize
            Item.PkName = pck
            Item.LbName = pm.GetApplicationLabel(pck)
            List.Add(Item)
        End If
    Next
    LV.notifyDataSetChanged
    
End Sub

Sub IsSystemApp (PackageName As String) As Boolean
    
    Dim jo As JavaObject
    jo.InitializeContext
    Dim flags As Int = jo.RunMethodJO("getPackageManager", Null).RunMethodJO("getApplicationInfo", _
     Array (PackageName, 0)).GetField("flags")
    Return Bit.And(flags, 1) = 1 'FLAG_SYSTEM
    
End Sub

PCM.GetApplicationIcon(item.PkName) ' PCM as PackageManager