' Benötigte API-Funktionen
Private Declare Function URLDownloadToCacheFile Lib "urlmon" _
  Alias "URLDownloadToCacheFileA" ( _
  ByVal pCaller As Long, _
  ByVal szURL As String, _
  ByVal szFileName As String, _
  ByVal nBufLen As Long, _
  ByVal dwReserved As Long, _
  ByVal lpfnCB As Long) As Long

Dim sFile As String
Dim nSize As Long
Dim nResult As Long
 
sFile = Space$(256)
nSize = Len(sFile)
nResult = URLDownloadToCacheFile(0, "http://www.domain.de/bild.gif", sFile, _
  nSize, 0, 0)
If nResult = 0 Then
  Image1.Picture = LoadPicture(sFile)
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de