填空题

窗体中有一组文件系统控件，分别是驱动器列表框drive1、目录列表框dir1和文件列表框file1，在它们下面有一个图片框pic1。要求选择一个bmp文件，即单击文件列表框中的某个文件时，将该文件显示在图片框中。请在空白处填入适当的内容，将程序补充完整。
Option Explicit
Private Sub File1_Click()
Dim fn As String
If Len(Dir1.Path)=3 Then
Fn=Dir1.Pach+File1.FileName
Else
Fn=Dir1.Path & "\"&______
End if
Pic1.AutoSize=True:Pic1.ScaleMode=vbPixels
Pic1.Picture=______
End Sub
Private Sub Form Load()
File1.FileName="*.bmp"
End Sub
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive
End Sub