#Region " Backup and Recovery Listview Items "
 
    ' [ Backup and Recovery Listview Items ]
 
    ReadOnly BackupFile As String = "Recovery.tmp"  ' File conaining the data to recover.
    Private BackupData As New List(Of ListViewItem) ' Storage for the data to backup.
    Private BinaryFormat As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
 
    Private Sub Backup(ByVal ListView As ListView)
 
        BackupData.Clear()
 
        Select Case ListView.Items.Count
 
            Case 0
                Try : IO.File.Delete(BackupFile) : Catch : End Try
                ' We don't need the BackupFile if it will not contains anything to recover...
 
            Case Else
 
                BackupData.AddRange(ListView.Items.Cast(Of ListViewItem))
 
                Using Writter As New IO.FileStream(BackupFile, IO.FileMode.Create)
                    BinaryFormat.Serialize(Writter, BackupData)
                End Using
 
        End Select
 
    End Sub
 
    Private Sub Recovery(ByVal ListView As ListView)
 
        If IO.File.Exists(BackupFile) Then
 
            Using Reader As New IO.FileStream(BackupFile, IO.FileMode.Open)
                BackupData = DirectCast(BinaryFormat.Deserialize(Reader), List(Of ListViewItem))
            End Using
 
            ListView.Items.AddRange(BackupData.ToArray())
 
        End If
 
    End Sub
 
#End Region

    WithEvents BackupTimer As New Timer With {.Interval = 60 * 1000, .Enabled = True}
 
    Private Sub BackupTimer_Tick(sender As Object, e As EventArgs) Handles BackupTimer.Tick
        Backup(ListView1)
        End ' Matamos la aplicación si se quiere testear...
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        If IO.File.Exists(BackupFile) Then
 
            If MessageBox.Show( _
               "An error ocurred during the last session." & vbNewLine & vbNewLine & _
               "Do you want to recover the lost data?", "Recovery", _
               MessageBoxButtons.YesNo, MessageBoxIcon.Question) _
            = DialogResult.Yes Then
 
                Recovery(ListView1)
                MessageBox.Show("Data recovered!", "Recovery", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
            End If
 
        End If
 
    End Sub

#Region " Backup and Recovery Listview Items "
 
    ' [ Backup and Recovery Listview Items ]
 
    ReadOnly BackupFile As String = "Recovery.tmp"  ' File conaining the data to recover.
    Private BackupData As New List(Of ListViewItem) ' Storage for the data to backup.
    Private BinaryFormat As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
 
    Private Sub Backup(ByVal ListView As ListView)
 
        BackupData.Clear()
 
        Select Case ListView.Items.Count
 
            Case 0
                Try : IO.File.Delete(BackupFile) : Catch : End Try
                ' We don't need the BackupFile if it will not contains anything to recover...
 
            Case Else
 
                BackupData.AddRange(ListView.Items.Cast(Of ListViewItem))
 
                Using Writter As New IO.FileStream(BackupFile, IO.FileMode.Create)
                    BinaryFormat.Serialize(Writter, BackupData)
                End Using
 
        End Select
 
    End Sub
 
    Private Sub Recovery(ByVal ListView As ListView)
 
        If IO.File.Exists(BackupFile) Then
 
            Using Reader As New IO.FileStream(BackupFile, IO.FileMode.Open)
                BackupData = DirectCast(BinaryFormat.Deserialize(Reader), List(Of ListViewItem))
            End Using
 
            ListView.Items.AddRange(BackupData.ToArray())
 
        End If
 
    End Sub
 
#End Region

    Dim Recovery_Items As New List(Of Tuple(Of Integer, String, String))()
 
    ' Recovery Timer
    Private Sub Recovery_Timer_Tick() Handles Recovery_Timer.Tick
 
        Recovery_Items.Clear()
 
        For Each item As ListViewItem In ListView_Monitor.Items
            Recovery_Items.Add(Tuple.Create( _
                              item.Index, _
                              String.Format("""""{0}""""", item.SubItems(1).Text), _
                              String.Format("""""{0}""""", item.SubItems(2).Text)))
        Next
 
        IO.File.WriteAllText("Recovery.tmp", String.Join(vbNewLine, Recovery_Items), System.Text.Encoding.ASCII)
 
    End Sub

(0, "Valor1", "Valor2")
(1, "V,a,l,o,r,1", "V,a,l,o,r,2")

    Dim Recovery_Index As Integer = 0
 
    Private Sub Recovery()
 
        If IO.File.Exists("Recovery.tmp") Then
 
            For Each Line As String In IO.File.ReadAllLines("Recovery.tmp")
 
                Line = Line.Substring(1, Line.Length - 2) ' Deletes the first and last () chars.
 
                For Each value As String In Line.Split(", """)
                    Recovery_Index += 1
                    Select Case Recovery_Index
                        Case 1
                            item = ListView_Monitor.AddItem(value.Replace("""", Nothing).Trim)
                        Case Else
                            item.SubItems.Add(value.Replace("""", Nothing).Trim)
                    End Select
                Next
                Recovery_Index = 0
            Next
 
        End If
 
    End Sub

    Dim Recovery_Items As New List(Of Tuple(Of Integer, String, String))()
 
    Private Sub Recovery_Timer_Tick() Handles Recovery_Timer.Tick
 
        Recovery_Items.Clear()
 
        For Each item As ListViewItem In ListView_Monitor.Items
            Recovery_Items.Add(Tuple.Create(item.Index, item.SubItems(1).Text, item.SubItems(2).Text))
        Next
 
        IO.File.WriteAllText("Recovery.tmp", String.Join(vbNewLine, Recovery_Items), System.Text.Encoding.Default)
 
    End Sub

(0, Valor1, Valor2)
(1, V-a-l-o-r-1, V-a-l-o-r-2)
(2, V,a,l,o,r,1, V,a,l,o,r,2)

    Private Sub Recovery()
 
        If IO.File.Exists("Recovery.tmp") Then
 
            For Each Line As String In IO.File.ReadAllLines("Recovery.tmp")
                ListView_Monitor.Items.Add(TryCast(Line, ListViewItem))
            Next
 
        End If
 
    End Sub

Private Recovery_Items As New List(Of Tuple(Of Integer, String, String))()

Recovery_Items.Add(Tuple.Create(item.Index, item.SubItems(1).Text, item.SubItems(2).Text))

Dim Recovery_Items As Tuple(Of Integer, String, String)

Dim Recovery_Items As New Dictionary(Of Integer, String, String)