Android Question Writelist with array of list

    ' DIM lists
    Dim prova(10) As List   
    For i = 0 To 9
        ' Initialize list i
        prova(i).Initialize
        ' Add items to list i
        For o = 0 To 2
            Dim val As Int = ((i+1)*1000)+o
            prova(i).Add("Listitem "&val)
        Next
    Next
    ' Write all lists to a file
    Dim rf As RandomAccessFile
    rf.Initialize(File.DirInternal,"MyLists.lst",False)
    rf.WriteObject(prova,False,0)
    '
    ' To test the written lists
    ' we create a new List of lists under a new name
    Dim savedprova(10) As List
    ' AND then load the saved lists to this new list of lists
    savedprova = rf.ReadObject(0)
  ' LOG all Listentries from all saved lists
    Log("Showing saved Lists including items")
    For i = 0 To 9
        ' Initialize list i
        Dim lst As List = savedprova(i)
        ' Read items from list i
        For o = 0 To lst.Size-1
            Log("List("&i&"): = "&lst.Get(o) )
        Next
    Next