Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdSave.Click
        On Error Resume Next
        Dim Datei As String = AppPath() & "\Links.link"
        Dim FStream As New IO.FileStream(Datei, IO.FileMode.Create, _
          IO.FileAccess.ReadWrite, IO.FileShare.Read)
        Dim SWriter As New System.IO.StreamWriter(FStream)
        Dim i As Integer
        Dim j As Integer
        For i = 1 To lvwLinks.Items.Count
            For j = 1 To lvwLinks.Items.Count
                SWriter.Write(lvwLinks.Items(i).Text.ToString & _
                  ControlChars.Tab & lvwLinks.Items(i).SubItems( _
                  j).Text.ToString & vbNewLine)
            Next j
        Next i
        SWriter.Close()
        FStream.Close()
    End Sub