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文件呢？

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