[الاستاذ خليل]

هذا هو الكود يبقى عليكم رسم الادوات

Dim a As Integer
Private Sub CommandButton1_Click()
10:
Image1.Visible = False
If a >= 10 Then
a = 0
Exit Sub
End If

a = a + 1
Image1.Picture = LoadPicture(Application.ActivePresentation.Path & "\imges\" & a & ".JPG")
  Image1.Visible = True
 Dim Start As Long
    Start = Timer
    Do While Timer < Start + 2 'a 3 second delay (Change To any numer you want)


        DoEvents ' Yield To other processes.
        Loop
      
      GoTo 10
     
End Sub

الاستاذ خليل