'举个例子给你
'窗口1有控件listbox1
'窗口的afterload事件先要生成即将显示给用户的文件
For Each File As String In FileSys.GetFiles("C:\")
Dim TmpFile As New System.IO.FileInfo(File)
e.form.controls("listbox1").items.add(TmpFile.Name)Next
'控件listbox1的双击事件
messagebox.show("你选择的是C:\" & e.sender.SelectedValue)
根据你自己的要求再自行更改,编程要多动手多动脑才行。