Private File As System.IO.File
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
        System.EventArgs) Handles MyBase.Load
        ' Listview-Einstellung ändern
        With ListView1
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
            .MultiSelect = False
            '.CheckBoxes = True
            ' 10 Spalten hinzufügen
            For i As Integer = 0 To 9
                .Columns.Add("Spalte " & i.ToString("00"))
            Next
        End With
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Button1.Click
        For Each _Zeile() As String In Me.ReadTxtToList("G:\Eigene" & _
          "Dateien\Visual Studio" & _
          "2008\Projects\test3\WindowsApplication2\bin\Debug\capture.txt")
            ListView1.Items.Add(New ListViewItem(_Zeile))
        Next
        ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
    End Sub
 
    Private Function ReadTxtToList(ByVal sFile As String) As List(Of String())
        Dim _List As New List(Of String())
        If File.Exists(sFile) Then
            For Each Zeile As String In File.ReadAllLines(sFile)
                _List.Add(Zeile.Split(";"))
            Next
        End If
        Return _List
    End Function
 
 
 
 
 
 
 
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
' Eintrag löschen:
        For i As Integer = 0 To ListView1.SelectedItems.Count - 1
            Dim lvi As ListViewItem = ListView1.SelectedItems(i)
            ListView1.Items.Remove(lvi)
        Next i
 
    End Sub
 
 
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button4.Click
        ' Eintrag hinzufügen:
 
        Dim itms() As String = New String() {TextBox1.Text, TextBox2.Text, _
          TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, _
          TextBox7.Text, TextBox8.Text, TextBox9.Text}
        Dim lvi As New ListViewItem(itms)
        ListView1.Items.Add(lvi)
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear()
        TextBox9.Clear()
 
    End Sub