[asemshahen5]

أولا ضع أداة بكتشر بوكس ثم أداة تايمر ضع خاصية
Interval=5000
ثم ضع الكود التالي :

كود :

 Dim ListBox2 As New ListBox
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    For Each img In System.IO.Directory.GetFiles("D:\Image", "*.png", IO.SearchOption.AllDirectories)
        ListBox2.Items.Add(img)
    Next
    Timer1.Start()
End Sub
Dim s As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    If s = ListBox2.Items.Count - 1 Then
         s = 0
         Exit Sub
    End If
    PictureBox1.Load(ListBox2.Items(s).ToString)
    s += 1
End Sub