[ابراهيم ايبو]

السلام عليكم اخي الغالي ابو روضة
تفضل هذه اكواد زر التحميل وزر سابق  وتالي

كود :

' تعريف لائحة لنضع فيها اسماء الصور الموجودة في المجلد الذي سنختاره
   Dim Filenames As List(Of String) = New List(Of String)
   Dim Counter As Integer = 0 ' تعريف متغير رقمي

   Private Sub Btn_LoadPicture_Click(sender As Object, e As EventArgs) Handles Btn_LoadPicture.Click
       Dim fbd As New FolderBrowserDialog()
       If fbd.ShowDialog() = DialogResult.OK Then
           Filenames.AddRange(System.IO.Directory.GetFiles(fbd.SelectedPath, "*.jpg")) ' اضافة الصور من نوع جيبك
           If Filenames.Count > 1 Then PictureBox1.Load(Filenames(Counter)) ' تحميل الصورة رقم الكونتر صفر
       End If
   End Sub

   Private Sub Btn_Next_Click(sender As Object, e As EventArgs) Handles Btn_Next.Click
       If Counter < Filenames.Count - 1 Then
           Counter += 1
       Else
           Counter = 0
       End If
       PictureBox1.Load(Filenames(Counter))
   End Sub

   Private Sub Btn_Previous_Click(sender As Object, e As EventArgs) Handles Btn_Previous.Click
       If Counter > 0 Then
           Counter -= 1
       Else
           Counter = Filenames.Count - 1
       End If
       PictureBox1.Load(Filenames(Counter))
   End Sub