哪位哥哥姐姐能帮我用VB6.0编一个“图片浏览器”？？？

Dim i As Integer
Private Sub Command1_Click()
Timer1.Interval = 6000
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
i = 0
End Sub

Private Sub Timer1_Timer()
Dim a As String
a = App.Path
If Right$(a, 1) <> "\" Then a = a & "\"
i = i + 1
Image1.Picture = LoadPicture(a & "xy" & ".bmp")
If i = 5 Then i = 0

End Sub

具体还是自己看书或者下载源代码吧！
www.vbgood.com里面有！

你是谁呀。我那有，有事给我发邮件吧
nannan064@163.com

不是很难啊！！这些简单的东西自己去尝试一下效果会更好的

我这儿正好有个，不过是我1年前写的！
将以下代码保存为form1.frm用VB打开，再每个img（index）里添加你喜欢的图片运行就可以了！

'''''''''''''''&#