Dim appn(packages.size) As String
Dim pkgn(packages.size) As String
Dim ver(packages.Size) As String
Dim icon As BitmapDrawable
Dim n as int
n=0
For i = 0 To packages.Size - 1
appn(n)=pm.GetApplicationLabel(packages.Get(i))
pkgn(n)=packages.Get(i)
icon=pm.GetApplicationIcon(pkgn(i))
ver(n)=pm.GetVersionName(pkgn(n))
ListView1.AddTwoLinesAndBitmap(appn(n)&" "&ver(n),pkgn(n),icon.Bitmap)
n=n+1
Next
It seems you've fixed, but in the 2nd line from Erel, "Then" is missing the final "n".
If you get an error, it would be fine you'd show your code, to see what's in the line 76.
packages = pm.GetInstalledPackages
Dim appn(packages.size) As String
Dim pkgn(packages.size) As String
Dim ver(packages.Size) As String
Dim o As Object
n=0
For i = 0 To packages.Size - 1
appn(n)=pm.GetApplicationLabel(packages.Get(i))
pkgn(n)=packages.Get(i)
o = pm.GetApplicationIcon(pkgn(i))
If (o Is BitmapDrawable)=False Then Continue
ver(n)=pm.GetVersionName(pkgn(n))
ListView1.AddTwoLinesAndBitmap(appn(n)&" "&ver(n),pkgn(n),o)
n=n+1
Next
1. You should never see this error dialog. Add the Starter service back.
2. Post the full error message from the logs.
3. Never use ListView. You are simply wasting your time. Use xCustomListView instead.
4: