Option Explicit
 
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 Form_Load()
 
   Dim lresult As Long
 
   lresult = URLDownloadToFile(0, _
     "http://www.vbarchiv.net/images/vb_logo_ani.gif",  "c:\temp\~bild", 0, 0)
   Image1.Picture = LoadPicture("c:\temp\~bild")
End Sub