Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim files = From fullpath In IO.Directory.GetFiles("C:\Windows\") Select New Tuple(Of String, String)(IO.Path.GetFileName(fullpath), fullpath) ListBox1.DisplayMember = "Item1" ListBox1.Items.AddRange(files.ToArray) End Sub Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged MsgBox(ListBox1.SelectedItem.Item2) End Sub