Forma Buton ekle, tıklandığında olayına aşağıdaki kodu ekle.

 For a = 2 To Me.RESİM.AttachmentCount



        Pause (0.5)

        Me.Etiket58.Caption = "Resim " & a & "/" & Me.RESİM.AttachmentCount

        Me.RESİM.Forward

    Next a

kod sayfasında en alta aşağıdaki kodu ekle

Public Function Pause(NumberOfSeconds As Variant)



On Error GoTo Err_Pause

    

    Dim PauseTime As Variant, Start As Variant

    

    PauseTime = NumberOfSeconds

    Start = Timer

    Do While Timer < Start + PauseTime

    DoEvents

    Loop

    

Exit_Pause:

    Exit Function

    

Err_Pause:

    MsgBox Err.Number & " - " & Err.Description

    Resume Exit_Pause

    

End Function