Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        With ListView1
            .View = View.Details
            .GridLines = True
            .Columns.Add("Spalte1")
            .Columns.Add("Spalte2")
            .Columns.Add("Spalte3")
 
            For i = 0 To .Columns.Count - 1
                .Columns(i).Width = -2
            Next
        End With
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Save()
    End Sub
 
    Friend Sub SaveTo(ByRef fs As IO.FileStream)
        'TODO: SaveTo
        Dim Formatter As New _
          Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Try
            Dim arr(ListView1.Columns.Count - 1) As ColumnHeader
            For i As Integer = 0 To ListView1.Columns.Count - 1
                arr(i) = ListView1.Columns(i)
            Next i
            Formatter.Serialize(fs, arr)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
 
    Friend Function LoadFrom(ByRef fs As IO.FileStream) As ColumnHeader()
        'TODO: LoadFrom
        Dim Formatter As New _
          Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Try
            Dim arr As ColumnHeader()
            arr = DirectCast(Formatter.Deserialize(fs), ColumnHeader())
            Return arr
        Catch ex As Exception
            Throw ex
            Return Nothing
        End Try
    End Function
 
    Public Sub Save()
        Dim dataPath As String = IO.Path.Combine(Application.StartupPath, _
          "accounts.dat")
        Dim fs As New IO.FileStream(dataPath, IO.FileMode.OpenOrCreate)
 
        SaveTo(fs)
 
        fs.Close()
    End Sub
 
    Public Sub Load()
        Dim dataPath As String = IO.Path.Combine(Application.StartupPath, _
          "accounts.dat")
        Dim fs As New IO.FileStream(dataPath, IO.FileMode.OpenOrCreate)
        Dim col As ColumnHeader()
        Dim X As ColumnHeader
 
        col = LoadFrom(fs)
        ListView1.Columns.Clear()
        Me.Refresh()
 
        For i As Integer = 0 To col.Length - 1
            ListView1.Columns.Add(col(i))
        Next i
 
        fs.Close()
        Me.Refresh()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Load()
    End Sub
End Class