Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Üstteki kodu modüle ekle, aşağıdaki kodu da formdaki butonun tıklandığında olayına ekle

  Dim ResimAdi As String



    Dim ret As Long

    Dim KayitYeri As String

    Dim URL As String









    URL = Replace(Me.link, "#", "")

    ResimAdi = Right(URL, Len(URL) - InStrRev(URL, "/"))

    KayitYeri = CurrentProject.Path & "\" & ResimAdi

    Debug.Print KayitYeri

    ret = URLDownloadToFile(0, URL, KayitYeri, 0, 0)









    If ret = 0 Then

        Exit Sub

    Else

        MsgBox "Dosya Yüklenemedi"

        Exit Sub

    End If