帮忙看看这个VB 程序

这个程序不难，就是drivelistbox、listbox、filelistbox 3个控件联动！
所需控件：上面3个，还有textbox一个，commandbutton一个，还有个label.caption＝选定文件
文件系统控件联动代码如下：

Private Sub Command1_Click()
Dim int1
int1 = Shell(Text1.Text, vbNormalFocus) '单击按钮指定运行选定的exe可执行程序，因为在form_load事件中，filelistbox中设定为显示exe文件，所以是可执行的
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path '设置文件列表框路径文dirlistbox中选定的文件夹路径
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive '设置dirlistbox的路径为当前驱动器的路径
End Sub

Private Sub File1_Click()
If Right(Dir1.Path, 1) = "\" Then '这段代码的作用是在text1.text中显示选定文件的完整路径
Text1.Text = File1.Path + File1.FileName '这句的意思是如果文件在根目录，那就是路径+文件名
Else
Text1.Text = File1.Path + "\" + File1.FileName '如果不在根目录，则是路径+\+文件名
End If
End Sub

Private Sub Form_Load()
File1.Parent = "*.exe" '在文件列表框中只显示可执行文件
End Sub

图片没了