Private Sub txt_ueberschr_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles txt_ueberschr.Click
 
        Try
            Dim sFile As String
            sFile = Application.StartupPath & "\capture.txt"
 
            Dim fs As New FileStream(sFile, FileMode.Create, FileAccess.Write)
            Dim strmWriter As New StreamWriter(fs)
 
            For i As Integer = 0 To ListView1.Items.Count - 1          ' alle 
            ' Zeilen (Items) der ListView
                For j As Integer = 0 To ListView1.Items(i).SubItems.Count - 1  _
                  ' alle Spalten (SubItems) der ListView
                    Dim sep As String = String.Empty
                    If j > 0 Then sep = ";" ' einzelne Einträge trennen
                    strmWriter.Write(sep + ListView1.Items(i).SubItems(j).Text)
                Next j
 
                strmWriter.WriteLine()
            Next i
            strmWriter.Flush()
            strmWriter.Close()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
 
        End Try
        MsgBox("   !!  Fertig  !!   ")
    End Sub

 Public Sub ListBox_Save_2(ByVal ListBox As ListBox, ByVal sFile As String)
 
        ' Inhalt einer ListBox speichern, überschreiben
        Dim oStream As IO.StreamWriter
        Dim i As Short
 
        oStream = New IO.StreamWriter(sFile, False) 'überschreiben
 
        For i = 0 To ListBox.Items.Count - 1
 
            oStream.Write(ListBox.Items(i))
 
        Next
        oStream.Close()
    End Sub