Sub load_notification_apps_list_data
ProgressDialogShow2("Please wait",False)
count_ckb=0
lbl_count_ckb.Text=count_ckb
sv2.Clear
If Starter.notification_apps_list.Size>0 Then
Dim remove_list As List
remove_list.Initialize
Starter.notification_apps_list.Sort(True)
For Each item As String In Starter.notification_apps_list
Sleep(0)
Dim i As Int = Starter.full_apps_list.IndexOf(item)
If i <> -1 Then
Starter.full_apps_list.RemoveAt(i)
Dim s() As String
s = Regex.Split("#", item)
Dim bool As Boolean=True
Dim pm As PackageManager
Dim b As BitmapDrawable=pm.GetApplicationIcon(s(1))
Dim d As Bitmap
d.Initialize3(b.Bitmap)
Dim c As Bitmap=CreateScaledBitmap(d,96,96,True)
sv2.Add(CreateListItem1(s(0),s(1),c,bool,sv2.AsView.Width, 50dip), 50dip, s(1))
Else if i = -1 Then
remove_list.Add(item)
End If
Next
For Each o As String In remove_list
Dim k As Int = Starter.notification_apps_list.IndexOf(o)
If k <> -1 Then
Starter.notification_apps_list.RemoveAt(k)
End If
Next
Sleep(0)
End If
ProgressDialogHide
End Sub