<font color=green>' Benötigt wird nur folgende API-Funktion</font>
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

URLDownloadToFile 0, "http://www.irgendeineurl.de/bild1.gif", _
  App.Path & "ild_temp.gif", 0, 0
Picture1.Picture = LoadPicture(App.Path & "ild_temp.gif")
Kill App.Path & "ild_temp.gif"