Dim ood As New OpenFileDialog ood.Reset() ood.Multiselect = True If ood.ShowDialog = Windows.Forms.DialogResult.OK Then For Each elemento In ood.FileNames ListBox1.Items.Add(elemento) Next End If