[مبتدئ]

يوجد Button كود

كود :

On Error Resume Next
        ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1

Timer كود

كود :

On Error Resume Next
        Dim file_name As String = ListBox1.SelectedItem
        file_name = ListBox1.SelectedItem
        Dim bm As New Bitmap(file_name)
        PictureBox1.Image = bm

اريد عند الذهاب لى اخر صوره يرجع لى اول صوره