求vb高手帮忙解答！事后追加，显示悬赏分我的问题就出不来，浪费了100多分了。在这里先谢谢了。

Question

在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图3-1所示。

Answer 1

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
Text1 = Dir1.Path & File1.FileName
End Sub
Private Sub Form_Load()
Drive1.Drive = "D:\"
File1.Pattern = "*.jpg;*.bmp;*.gif"
End Sub