Sub save()
        Dim fod As New SaveFileDialog
        Dim sw As IO.StreamWriter
        If Me.ListView1.Items.Count > 0 Then
            Try
                fod.ShowDialog()
                sw = New IO.StreamWriter(fod.FileName)
                For a As Integer = 0 To Me.ListBox1.Items.Count - 1
                    sw.WriteLine(Me.ListView1.Items.Item(a))
                Next
            Catch ex As Exception
                Throw New Exception(ex.ToString)
            Finally
                If Not sw Is Nothing Then sw.Close()
            End Try
        End If
    End Sub
    Sub read()
        Dim fod As New OpenFileDialog
        Dim sr As IO.StringReader
        Try
            fod.ShowDialog()
            Me.ListView1.Items.Clear()
            sr = New IO.StringReader(fod.FileName)
            While sr.Peek > -1
                Me.ListView1.Items.Add(sr.Read)
            End While
        Catch ex As Exception
            Throw New Exception(ex.ToString)
        Finally
            If Not sr Is Nothing Then sr.Close()
        End Try
    End Sub