Public Sub lvw_Save(ByVal lvw As ListView, ByVal sFile As String)
        Dim intCols As Integer
        Dim i As Integer
        Dim u As Integer
 
        Using sr As New StreamWriter(sFile, False, System.Text.Encoding.Default)
            intCols = lvw.Columns.Count
 
            With lvw.Items
                For i = 1 To .Count - 1
                    With lvw.Items(i)
                        sr.Write(.ImageKey, vbTab)
                        sr.Write(.Text)
 
                        For u = 0 To intCols - 1
                            sr.Write(vbTab, .SubItems(u))
                        Next u
                        sr.WriteLine()
                    End With
                Next i
            End With
 
 
 
        End Using
    End Sub