Italian Gestione array

Dim xyz As List

Sub insertdata(xListView As ListView)
   Dim cd As CustomDialog
   Dim pnl As Panel
   pnl.Initialize("pnl")
   '
   Dim key1 As EditText
   key1.Initialize("key1")
   key1.Text = "Soggetto"
   pnl.AddView(key1,2%x, 20dip, 75%x, 48dip)
   '
   Dim key2 As EditText
   key2.Initialize("key2")
   key2.Text = "Descrizione"
   pnl.AddView(key2,2%x, 90dip, 75%x, 48dip)
   '
   cd.AddView(pnl, 5%x, 0%y, 77%x, 70%y)
   ret = DialogResponse.CANCEL
   If cd.Show("Dati personali", "Salva", "Annulla", "", Null) = DialogResponse.POSITIVE Then
      xListView.AddTwoLines(key1.Text,key2.Text)
      xList1.Add(key1.Text)
      xList2.Add(key2.Text)
      savelist(xListView)
   End If
End Sub

Private Sub savelist(xListView As ListView)
   Dim listitem As String
   For i = 1 To xList1.Size-1
      If i = 1 Then
         listitem = xList1.Get(i) & "-" & xList2.Get(i)
      Else
         listitem = listitem & "," & xList1.Get(i) & "-" & xList2.Get(i)
      End If
   Next
   FileSettingApp.SetString("chiave6",listitem)
End Sub

Sub deleteitem(xListView As ListView,position As Int)
   Dim cd As CustomDialog
   Dim Panel3 As Panel
   Panel3.Initialize("panel3")
   cd.AddView(Panel3, 5%x, 0%y, 77%x, 10%y)
   ret = DialogResponse.CANCEL
   If cd.Show("Eliminare Questa voce", "Si", "No", "", Null) = DialogResponse.POSITIVE Then
      xListView.RemoveAt(position)
      xList1.RemoveAt(position)
      xList2.RemoveAt(position)
      savelist(xListView)
   End If
End Sub

Sub loadlist(xListView As ListView)

   xListView.Clear
   xList1.Clear
   xList2.Clear
   '
   Dim listitem() As String
   Dim s As String
   '
   s = FileSettingApp.GetString("chiave6")
   listitem = Regex.Split(",",s)
   '
   For i = 0 To listitem.Length-1
      LabelView(i) = listitem(i)
      Dim ss() As String
      ss =  Regex.Split("-",listitem(i))
      If ss.Length > 1 Then
         xListView.AddTwoLines(ss(0),ss(1))
         xList1.Add(ss(0))
         xList2.Add(ss(1))
      Else If ss.Length = 1 Then
         xListView.AddSingleLine(ss(0))
         xList1.Add(ss(0))
         xList2.Add("Nessuna descrizione")
      Else
         Continue
      End If
   Next
   '
End Sub