首先启动VB6.0，新建一个工程。

在窗体上建立一个Drive1、Dir1、File1、一个Image1、一个Textbox、两个Commandbutton和五个Label控件。如下图所示：

然后加入一下代码：

Private Sub Command1_Click()
Image1.Picture = LoadPicture(Text1.Text) '当单击“确定”时'文本框中的文件在图像框中显示出来
End Sub

Private Sub Command2_Click() '当单击“退出”时'弹出是否退出系统对话框
Dim exi As String
exi = MsgBox("您真的想退出吗？", vbYesNo + vbQuestion + vbDefaultButton1, "退出")
If exi = vbYes Then
End
End If
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1 '当目录发生变化时'文件列表框中的文件也相应变化
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1 '当驱动器变化时'目录列表也相应变化
End Sub

Private Sub File1_Click()
Text1.Text = File1.Path + "\" + File1 '用来在文本框中显示被选中的图形名
End Sub

Private Sub File1_DblClick()
Image1.Picture = LoadPicture(File1.Path + "\" + File1) '当双击文件列表中的文件时'文件在图像框中显示出来
End Sub

Private Sub Form_Load()
Command1.Enabled = False '在未选择图形文件时“确定”按钮不可用
File1.Pattern = "*.bmp;*.jpg;*.ico;*.cur" '在文件列表框中显示扩展名为.BMP、.JPG、.ICO、.CUR的文件
End Sub

Private Sub Text1_Change()
Command1.Enabled = True '当文本框中的内容变化时使“确定”按钮可用
End Sub
到此，程序已经结束，按F5运行，是不是挺简单呀！

source-01.exe