هذا هو الكود يبقى عليكم رسم الادوات
كود:
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
الاستاذ خليل