المشكلة انك كاتب تستدعي صورة اسمها w
و انت لم تضعها بالملف بل وضعت صورة باسم d
غير اسم الصورة الى w او غير الكود كالتالي
كود:
Private Sub Form_Load()
Me.Gif89a1.FileName = App.Path & "\" & "d.gif"
End Sub
مع العلم انك تختصره كالتالي:
كود:
Private Sub Form_Load()
Gif89a1.FileName = App.Path & "\d.gif"
End Sub