Dim Leggi As New IO.FileStream(Palinsesto, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
        Dim SR As New System.IO.StreamReader(Leggi, System.Text.Encoding.Default)

        Me.Lsw1.Items.Clear()

        Do Until SR.Peek < 0
            Dim It As New ListViewItem(SR.ReadLine)
            Me.Lsw1.Items.Add(It)
        Loop