Italian FirstTime

lista=pm.GetInstalledPackages
   lista.Sort(True)
   For i=0 To lista.Size-1
      nome=lista.Get(i)
      bmp=pm.GetApplicationIcon(nome)
      labl=pm.GetApplicationLabel(nome)
      lw1.AddTwoLinesAndBitmap(nome,labl,bmp.Bitmap)
   DoEvents
   Next

Sub Activity_Create(FirstTime As Boolean)
  '...
  If FirstTime Then

    lista = pm.GetInstalledPackages
    lista.Sort(True)
    For i = 0 To lista.Size - 1
      nome = lista.Get(i)
      bmp = pm.GetApplicationIcon(nome)
      labl = pm.GetApplicationLabel(nome)
      lw1.AddTwoLinesAndBitmap(nome, labl, bmp.Bitmap)
      'DoEvents   <-- come mai?
    Next'i

  End If
  '...
End Sub