Foro de elhacker.net

Necesito hacer esto

Image1.picture = LoadPicture("www.xx.es/captcha.jpg")

¿Alguien me puede explicar como hacerlo? Me he bajado algunos modulos y cosas y no funciona nada.

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.

Gracias ;) Ya me funciona :=)