Function DoSomething()
        Dim ofd = New OpenFileDialog()

        If ofd.ShowDialog() = DialogResult.OK Then

            For Each FileName In ofd.FileNames
                Dim lwi = New ListViewItem(Path.GetFileName(FileName)) ' First Column
                lwi.SubItems.Add(Path.GetFullPath(FileName)) 'Second column
                lwi.SubItems.Add(New FileInfo(FileName).Length / Math.Pow(1024, 3)) ' Third column

                ListView.Add(lwi)
            Next

        End If

    End Function