ARKADAŞLAR ÖĞRETMENİMİZ BİZE BİR DİRLİSTBOX 1 DRİVELİSTBOX 1 FİLELİSTBOX ,1 IMAGE VE 1 TANEDE TİMER LA BİR PROGRAM HAZİRLAMAMIZI İSTEDİ.KONU ŞÖYLE:
DRİVELİSTBOX,FİLLE LİSTBOX VE DİRLİSTBOX TAM KESTİREMİOM AMA FİLELİSTBOX DA SEÇİLEN KLASÖRÜN İÇİNDEKİ RESİMLERİ TİMER1 ARACIYLA IMAGE 1 E GÖSTERİ GİBİ YANSİTMAK YARDIMCI OLURSANIZ SEVİNİRİM GEREKİOSA KODUDA YAZAYIM BUYURUN:


Private Sub Dir1.Change()
File1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Image1.Picture = LoadPicture("c:\Kullanıcılar\Ortak Resimler/Örnek Resimler/çöl.jpg")
End Sub

Kod bu arkadaşlar Lütfen yardımcı olun