VB做一个简单的图片浏览器谁有代码

VB做一个简单的图片浏览器，谁有代码？

怎么用VB做一个图片浏览器？

要求做到可以打开图片文件，
可以浏览下一张图片，上一张图片，
可以放大和缩小图片，
最难的是做简略图。

哪个高手有相关代码啊！？

有多少发多少啊！谢谢了。

我是VB新手啊！不太会，呵呵。大家多多帮助啊！

最佳答案
我只会做到下面的代码了.其中:
Dir1-目录列表控件
Drive1-驱动器列表控件
File1-文件列表控件
Image1-图像控件
Text1-文本框控件
Option1-单选控件(Caption为"通过单击浏览")Option2-单选控件(Caption为"通过双击浏览")

PrivateSub Dir1_Change()
File1.Path= Dir1.Path
EndSub
PrivateSub Drive1_Change()
OnError GoTo DriErr
Dir1.Path= Drive1.Drive
ExitSub
DriErr:
IfErr.Number = 68 Then
IfMsgBox("请问要重试还是取消?",vbRetryCancel + vbCritical, "硬盘不存在或光驱没有插入磁盘!")= vbRetry Then
Resume0
Else
Drive1.Drive= "C:"
ResumeNext
EndIf
EndIf
EndSub
PrivateSub File1_Click()
IfOption2.Value = True Then Exit Sub
DimpicFile As String
IfRight(Dir1.Path, 1) = "\" Then

picFile= Dir1.Path + File1.FileName Else
picFile= Dir1.Path + "\" + File1.FileName EndIf
Image1.Picture= LoadPicture(picFile)
Text1.Text= picFile
EndSub
PrivateSub File1_DblClick()
IfOption1.Value = True Then Exit Sub
DimpicFile As String
IfRight(Dir1.Path, 1) = "\" Then
picFile= Dir1.Path + File1.FileName Else
picFile= Dir1.Path + "\" + File1.FileName EndIf
Image1.Picture= LoadPicture(picFile)
Text1.Text= picFile
EndSub