Dim sa As New ArrayList
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim sr As New System.IO.StreamReader("C:\test.txt", _
        System.Text.Encoding.Default)
        sa.AddRange(Split(sr.ReadToEnd, ","))
        sa(0) = sa(0).Substring(8)
        sr.Close()
        ListBox1.DataSource = sa
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Dim sw As New System.IO.StreamWriter("C:\test1.txt", False, _
        System.Text.Encoding.Default)
        Dim s(ListBox1.Items.Count - 1) As String
        sa.CopyTo(s, 0)
        sw.Write("content=")
        sw.Write(Join(s, ","))
        sw.Close()
    End Sub
 
    ' Löschen
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        If ListBox1.SelectedIndex > -1 Then
            sa.RemoveAt(ListBox1.SelectedIndex)
            ListBox1.DataSource = Nothing
            ListBox1.DataSource = sa
        End If
    End Sub