Per l'immagine (ma in genere per qualsiasi file) ti conviene usare la costante icByteArray per ricevere i dati.

Ovvero

codice:
Dim f() As Byte
f = Inet1.OpenURL("http://www.monicabellucci.it/gallery/images/1.jpg", icByteArray)
Do Until Inet1.StillExecuting = False
    DoEvents
Loop

Open "C:\tmp.jpg" For Binary As #1
Put #1, , f
Close 1
Set Image1.Picture = LoadPicture("C:\tmp.jpg")
Kill "C:\tmp.jpg"
Se ottieni una pagina del tipo 404 al posto dell'immagine, la Set non puo' essere eseguita.