Hola Yvan por lo que ve si usas este codigo que avias puesto en otro post tendria que volver a leer la imagen sin usar el cache, ya que usas la constante INTERNET_FLAG_RELOAD
Private Sub LeyendoEnlaces()
If HayInternet Then
Dim hOpen As Long, hFile As Long, sBuffer As String, ret As Long
sBuffer = Space(1000)
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0) 'Aqui se me cuelga
hFile = InternetOpenUrl(hOpen, sUrl, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&) 'Open the url
InternetReadFile hFile, sBuffer, 1000, ret
InternetCloseHandle hFile
InternetCloseHandle hOpen
...
...
...
End Sub
tambien podes probar esta forma de descargar
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 Sub DeleteUrlCacheEntry Lib "wininet.dll" (ByVal lpszUrlName As String)
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Call DeleteUrlCacheEntry(URL)
If URLDownloadToFile(0, URL, LocalFilename, 0, 0) = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
If DownloadFile("http://www.tuhost.com/001.jpg", "c:\001.jpg") Then
Me.Picture = LoadPicture("c:\001.jpg")
End If
End Sub