Private 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
 
Private Sub Command1_Click()
Dim lResult As Long
Dim sURL As String
Dim sLocalFile As String
 
 
 
' URL-Link der Datei, die heruntergeladen werden soll
sURL = "http://www.seite.de/bild.GIF"
 
 
' Dateiname auf dem lokalen System
sLocalFile = "C:\Eigene Dateien\bild.gif"
 
' Download ausführen
Screen.MousePointer = vbHourglass
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
Screen.MousePointer = vbNormal
 
' Rückgabewert auswerten
If lResult = 0 Then
MsgBox "Download erfolgreich ausgeführt!"
Else
MsgBox "Fehler beim Download: " & _
"Entweder existiert die URL nicht, oder Sie haben " & _
"einen ungültigen Dateinamen angegeben!", vbCritical
End If
End Sub