VB做个简单的图片浏览器

期末考试~~ 兄弟 帮帮忙...课上我照书打了段编码~~ 怎么都是错的 高手帮帮看看。..打段对的给我 兄弟这感激不及啊~~~~~
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub file1_Click()
ChDrive Drive1.Drive
ChDir Dir1.Path
With Picture2
Picture2.Height = 2600
Picture2.Left = 0
Picture2.Top = 0
Picture2.Width = 2300
Picture2.Picture = LoadPicture(File1.FileName)
End With
VScroll1.Max = Picture2.Height - 2600: HScroll1.Max = Picture2.Width - 2300
VScroll1.Value = 0: HScroll1.Value = 0
End Sub

Private Sub HScroll1_Change()
Picture2.Left = 0 - HScroll1.Value
End Sub

Private Sub VScroll1_Change()
Picture2.Top = 0 - HScroll1.Value
End Sub
高手帮忙指个错 打断对的来// 考试用..谢哈 ~~

vb编程 制作一个简单的图片浏览器 用VB做个简单的打印 怎样用VB做一个图片浏览器?? vb做浏览器的问题 用vb怎么做个简单的屏幕保护 请教用VB做个简单的小程序 用VB做个简单的虚拟按键 VB制作图片浏览器 vb做简单的计算器 怎么用VB做同时浏览多张图片的浏览器，就是浏览缩略图不会