Dim lResult As Long
Dim sURL As String
Dim sLocalFile As String
 
<font color=green>' URL-Link der Datei, die heruntergeladen werden soll</font>
sURL = "http://www.domain.de/picture1.gif"
 
<font color=green>' Dateiname auf dem lokalen System</font>
sLocalFile = App.Path & "pictmp.gif"
 
<font color=green>' Download ausführen</font>
Screen.MousePointer = vbHourglass
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
Screen.MousePointer = vbNormal
 
<font color=green>' Rückgabewert auswerten</font>
If lResult = 0 Then
  Picture1.Picture = LoadPicture(sLocalFile)
  Kill sLocalFile
End If