Private Sub Form_Activate()
    Dim sFile As String
sFile = Dir("f:\*.txt", 31)
    While sFile <> ""
        Print sFile
        sFile = Dir
    Wend
End Sub
上面是一个关于读取F盘里的txt文件的代码，怎么修改后才可以单击窗体上的某个文件就可以实现打开txt文件呢？

"怎么修改后才可以单击窗体上的某个文件就可以实现打开txt文件呢？"
DriverListBox + DirListBox + FileBox + Shell
.....
OpenDailog
.....
BowerDailog(VB6要自己写) + FileBox + Shell
.....
List Control(MFC的VB6不知道有没有这东西)
.....
Win32 Function
.....
FSO
.....
API
.....
方法太多了...

还是没有搞懂，麻烦楼上的写一个例子出来，感谢！

CommonDailog1.ShowOpen
Shell "notepad.exe " & CommonDailog1.FileName,vbNormalFocus

http://topic.