yaptığım proje bu istersen indir... indir

kod: Dim slayt, mbk Private Sub Command2_Click If List1. ListIndex = 0 Then List1. ListIndex = List1. ListIndex Else List1. ListIndex = List1. ListIndex - 1 End If End Sub Private Sub Command3_Click If List1. ListIndex = List1. ListCount - 1 Then List1. ListIndex = List1. ListIndex Else List1. ListIndex = List1. ListIndex + 1 End If End Sub Private Sub Command4_click If Command4. Caption = "dur" Then slayt = 0 Command4. Caption = "Slayt Gösterisi" Else slayt = 1 mbk = -1 Command4. Caption = "dur" End If End Sub Private Sub Dir1_Change File1. Path = Dir1. Path ChDir Dir1. Path End Sub Private Sub Drive1_Change Dir1. Path = Drive1. Drive ChDir Drive1. Drive End Sub Private Sub command1_Click List1. AddItem File1. Path & "\" & File1. List(File1. ListIndex) 'List1. AddItem (File1. List(File1. ListIndex)) List1. ListIndex = 0 End Sub Private Sub List1_Click Image1. Picture = LoadPicture(List1. List(List1. ListIndex)) End Sub Private Sub Timer1_Timer If slayt = 1 Then mbk = mbk + 1 Image1. Picture = LoadPicture(List1. List End If If mbk = List1. ListCount Then slayt = 0 Command4. Caption = "Slayt Gösterisi" mbk = 0 Image1. Picture = LoadPicture(List1. List(0)) End If End Sub not : vb 6.0 kullanıyorum

mrhb benim acil olarak visual basic 2005 de bi slayt oluşturmam lazım bu konuyla bilgisi olan varsa yardım edebilir mi?

tşk ama olmadı çok hata veriyo kendimce düzenlemler yaptım ama genede olmadı