German Packages in einem Listview anzeigen

Hi
Hab versucht meine Installierten apps in ein listview anzeigen zu lassen
bekomme immer den fehler --> IndexOutOfBoundsException
Invalid index 255, size is 255

Mein code -->

Dim pm As PackageManager
Dim packages As List
packages = pm.GetInstalledPackages
For i = 0 To packages.Size -1
Log(packages.Get(i))
Next
Dim bild As BitmapDrawable
bild = pm.GetApplicationIcon(packages.Get(i))
If packages.IsInitialized Then
listapps.AddTwoLinesAndBitmap2(pm.GetApplicationLabel(packages.Get(i)), packages.Get(i), bild.Bitmap, packages.Get(i))

End If

kann mir jemand einen tipp geben?

Wenn die For-Next-Schleife verlassen wird, ist 'i' gleich
packages.Size (also um einen Zähler zu hoch).

Grüße ... Kiffi

Thx

Danke für deinen Tipp
Hab das next jetzt einfach am ende gesetzt und die funktion nochmal mit try catch end try versehen und es klappt super

Danke ^^