建立一个图形浏览器。窗体上放置驱动器列表框，目录列表框，文件列表框，组合框两个标签和一个图像框。

(1)在comobox的list属性里可以添加wmf,.bmp和.Ico这三种文件格式。格式为： *.wmf
如果用代码 Combo1.AddItem "*.wmf" 。
File1.Path = "f:\相册" '这个可以设置你的文件位置。
File1.Pattern = "*.wmf"即将文件列表框的文件格式设置为wmf的
当然在这里，要在comobox_Click事件里设置：File1.Pattern =comobox.text
(2)首先要获取路径名，然后用LoadPicture将图像加载到图像框里
Private Sub File1_Click()
Dim FilePath As String
FilePath = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture(FilePath)
End Sub
(3)用shell命令打开 画图，在打开命令后 +空格+文件路径 来传递要操作的图

完整程序：（需要一个组合框comobox1、一个文件列表框file1、一个图像框image1）
Option Explicit
Private Sub Combo1_Click()
File1.Pattern = Combo1.Text
End Sub

Private Sub File1_Click()
Dim FilePath As String
FilePath = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture(FilePath)
End Sub

Private Sub File1_DblClick()
Dim FilePath As String
if comobox1.text<>"*.bmp" then exit sub '如果没有这句话，其他格式的文件也会用画图工具打开
FilePath = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture(FilePath)
'用画图打开
Shell "mspaint " & FilePath, vbNormalFocus
End Sub

Private Sub Form_Load()
File1.Path = "f:\相册"
Combo1.AddItem "*.wmf"
Combo1.AddItem "*.bmp"
Combo1.AddItem "*.ico"
End Sub

IE地址栏是一个combox，内嵌了一个edit控件。
可以扩展一个CComboBox控件类。定义一个edit对象成员。
然后响应edit的wm_keydwon消息，查找combox所属字符串列表，动态排序，弹出显示。
。。。
难度不大