Sub clv_ItemLongClick (Position As Int, Value As Object)
Dim pm As PackageManager
Dim applist As List
applist = pm.GetInstalledPackages
Dim i As Intent
For Each packagename As String In applist
Next
i.Initialize("android.intent.action.DELETE", "package:"&packagename )
StartActivity(i)
End Sub