Sub DeleteDataPlane
       
    Dim List1 As List
   
    'controllo se esiste il file di testo
    If File.Exists(File.DirRootExternal, "RCHangar/ListModel.txt") Then
       
        'se il file esiste carico i dati dal file di testo
        List1 =File.ReadList(File.DirRootExternal, "RCHangar/ListModel.txt")
           
        For i = 0 To 9
           
            ListModel(i) = List1.Get(i)
           
    If ListModel(i) <> 0  Then 
       
                'Riempio lo slot con i valori da registrare
                ListModel(i) = "0"
            End If
           
        Next
       
        File.Writelist(File.DirRootExternal, "RCHangar/ListModel.txt", ListModel)   'Salvo l'array nel file di testo
       
        StartActivity(Main)
       
    End If
   
End Sub