Option Explicit
'Función API URLDownloadToFile
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()
'Descargamos el archivo de imagen al disco para después cargarla. _
El Primer parámetro es la url y el segundo es el path donde se guarda
Call URLDownloadToFile(0, "http://foro.elhacker.net/Themes/converted/selogo.jpg", App.Path & "\imagen.jpg", 0, 0)
'Mostramos la imagen en el Picture1
Picture1 = LoadPicture(App.Path + "\imagen.jpg")
Picture1.AutoSize = True
'Eliminamos la imagen descargada anteriormente
Kill App.Path & "\imagen.gif"
End Sub
Debes bajarlo y ponerlo, no puedes poner directamente la url en la función.