Manejo del Control Listview Parte 2

      Llenar Listview desde un Archivo de Texto 

Siguiendo con los ejemplos de manejo del listview, ahora vamos a abrir el archivo guardado con el metodo anterior visto en la parte 1. Mi captura para esta parte

  

Y Ahora el código:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim OFD As New OpenFileDialog
        With OFD
            .Title = "Abrir Ensayo"
            .Filter = "Ensayo (*.esy)|*.esy|Todos (*.*)|*.*"
            .FileName = "Ensayo_"
            If .ShowDialog = DialogResult.OK Then
                ' Abrirlo
                abrirExpRes(.FileName)
            End If
        End With
    End Sub

   Private Sub abrirExpRes(ByVal fic As String)
        ' Abrir el fichero y añadirlo al listview
        If fic.Contains("Ensayo_") Then
            Dim lvi As ListViewItem
            Dim s, t, v, w, x, y As String
            Using sr As New System.IO.StreamReader(fic, Encoding.Default, True)
                While Not sr.EndOfStream
                    s = sr.ReadLine
                    If Len(s) = 0 Then Exit While
                    ' Si no está en la lista de expresiones
                    If Me.ListView1.Items.Count = -1 Then
                        Me.ListView1.Items.Add(s)
                    End If
                    lvi = Me.ListView1.Items.Add(s)
                    t = sr.ReadLine
                    lvi.SubItems.Add(t)
                    v = sr.ReadLine
                    lvi.SubItems.Add(v)
                    w = sr.ReadLine
                    lvi.SubItems.Add(w)
                    x = sr.ReadLine
                    lvi.SubItems.Add(x)
                    y = sr.ReadLine
                    lvi.SubItems.Add(y)
                End While
                sr.Close()
            End Using
        End If
    End Sub

     Si tienen alguna duda no olviden comentar...Nos vemos en la parte 3
 Link descarga de mi  ejemplo:
https://docs.google.com/open?id=0B-UGWA03tc5ZWUw2YWxFR3gxLTg