Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim RowNum As ListViewItem
 
        For Each RowNum In ListView2.SelectedItems
            ListView2.Items.Remove(RowNum)
        Next
 
 
        Dim arrlines() As String = IO.File.ReadAllLines("c:\Records.txt")
 
End sub

        ...
        Dim c As Integer = 0
        Dim valueToDelete As String = "some string"
        Dim arrLinesTemp() As String
        Dim arrLines() As String = IO.File.ReadAllLines("c:\Records.txt")
 
        ' Make a copy of the original array avoiding the value
        ' you want to delete
        For x As Integer = 0 To UBound(arrLines)
            If arrLines(x) <> valueToDelete Then
                arrLinesTemp(c) = arrLines(x)
                c += 1
            End If
        Next x
 
        ' Clear the original array
        Array.Clear(arrLines, 0, UBound(arrLines))
 
        ' Restore the values left in the original array
        Array.Copy(arrLinesTemp, arrLines, UBound(arrLinesTemp))
        ...