Visual Basic - Guardar imagen de una web en c:\ !!!! AYUDA!!!

Hola,

Me han mandado en la universidad que recupere una imagen de una web cada 2 minutos con Visual Basic.La tengo que almacenar en una carpeta en local (c:\xx\).

Lo he intentado accediendo a la carpeta "Archivos Temporales de Internet", pero la foto no aparece. Tb he probado a usar la api ShellExecute, pero sólo consigo abrirla (no guardarla).

Alguien me puede ayudar?? es muy urgente!!!

Muchas Gracias,

Gloria

Te modifique el ejemplo de Inet1.OpenUrl para guardar una imagen (ojo la imagen esta bien el logo de google son 2 imagenes)

Dim b() As Byte
Dim strURL As String
strURL = "http://www.google.co.ve/images/hp0.gif"
b() = Inet1.OpenURL(strURL, icByteArray)

Open "C:\imagen1.gif" For Binary Access _
Write As #1
Put #1, , b()
Close #1

Esta es otra posibilidad:
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 Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nSize As Long, ByVal lpBuffer As String) As Long
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
Public Sub URL_To_Picture(ByVal sURL As String, pb As PictureBox)
Dim sTemp As String, sHTML As String
sTemp = GetTempDir
If Right(sTemp,1) <> "\" Then sTemp = sTemp & "\"
sTemp = sTemp & "dummy"
If Dir$(sTemp) <> "" Then Kill sTemp
Save_File_URL sTemp, sURL
pb.Picture = LoadPicture(sTemp)
Kill sTemp
End Sub
Private Function Save_File_URL(ByVal sFileName As String, ByVal sURL As String) As Long
Call URLDownloadToFile(0&, sURL, sFileName, 0, 0)
End Function
Private Function GetTempDir() As String
Dim tmp As String
tmp = Space$(256)
Call GetTempPath(Len(tmp), tmp)
GetTempDir = TrimNull(tmp)
End Function
Private Function TrimNull(item As String)
Dim pos As Integer
pos = InStr(item, Chr$(0))
If pos Then
TrimNull = Left$(item, pos - 1)
Else
TrimNull = item
End If
End Function