Naming a variable

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Resize the Control
        Me.Size = New Size(500, 250)
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle


        'Creates a new listview with the following properties
        Dim lv As New ListView
        With lv
            .Dock = DockStyle.Fill ' -----------------------|
            .View = View.Details ' -------------------------|
            .FullRowSelect = True ' ------------------------|
            .GridLines = True ' ----------------------------|
            ' End of properties


            Me.Controls.Add(lv)


            'Creates listview columns
            Dim col1, col2 As New ColumnHeader
            col1.Text = "File Path"
            col2.Text = "File Name"
            .Columns.AddRange(New ColumnHeader() {col1, col2})
            ' and then resizing by half - 5
            For Each col As ColumnHeader In .Columns
                col.Width = (lv.Width / 2) - 5
            Next
        End With


        ' Now extracting the files
        Dim path As String = "C:\Users\Aaron\Desktop\Slides" 'File Path
        Dim dirInfo As New IO.DirectoryInfo(path)
        Dim fileInfo As IO.FileInfo() = dirInfo.GetFiles()


        'list the names of all files in the specified directory
        For Each file As IO.FileInfo In fileInfo ' Goes through each file in this directory provided by "Path"
            Dim item As New ListViewItem(file.FullName) ' [Step 1] Creates a new ListViewItem & Sets the first column (Indexed as 0) as the full file path of the file
            item.SubItems.Add(file.Name) ' [Step 2] Now, creates a sub item of the same item that was intially created of the file name
            lv.Items.Add(item) ' [Step 3] Finally, adding the item into the listview
        Next ' and will now go to the next file and complete step 1 - 3 again until there are no more files to read
    End Sub