题目如下:
应用程序的功能:三个文件系统控件是同步的，即选择驱动器列表框中的驱动器时，在目录列表框中显示当前驱动器下的文件夹，在文件列表框中显示目录列表框中打开的文件夹中的文件。组合框控件用于限制文件列表框显示的文件类型。当单击文件列表框的文件名时，在右下的列表框中显示文件列表框中选定的文件名称。当双击文件列表框的可执行文件名时，将运行双击的文件。
代码如下:
Private Sub Form_Load()
    Label1.Caption = "驱动器列表框"
    Label2.Caption = "目录列表框"
    Label3.Caption = "文件列表框"
    Label4.Caption = "文件列表框中显示的文件类型:"
    Label5.Caption = "在文件列表框中选中的文件:"
    Label1.FontSize = 15
    Label2.FontSize = 15
    Label3.FontSize = 15
    Label4.FontSize = 15
    Label5.FontSize = 15
    Combo1.Text = Combo1.List(0)
End Sub
Private Sub Drive1_Change()     ' 当在驱动器列表框选择新的驱动器时
   Dir1.Path = Drive1.Drive         ' 目录列表框的路径改变
End Sub
Private Sub Dir1_Change()     ' 目录列表框的路径改变时
   File1.Path = Dir1.Path          ' 文件列表框的路径改变
End Sub

Private Sub Combo1_Click()
   File1.Pattern = Trim(Right(Combo1.Text, 5))  '文件类型为组合框的后5个字符
End Sub

Private Sub File1_Click()
   List1.AddItem File1.FileName
End Sub
Private Sub File1_DblClick()
   Dim RetVal
   Dim fname As String
   If Right(File1.Path, 1) = "\" Then                '  选定的目录是根目录
      fname = File1.Path + File1.FileName
   Else                                                 '  选定的目录是子目录
   fname = File1.Path + "\" + File1.FileName
   End If
   RetVal = Shell(fname, 1)                              '  调用Shell函数运行程序
End Sub
看不懂最后一个双击事件代码,尤其中shell函数的格式及功能.请指教!谢谢!