Necesito cargar imagen en image

[& eDu &]

Necesito hacer esto

Código (vb) [Seleccionar] Expandir

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.

[WHK]

Código (vb) [Seleccionar] Expandir

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.

[& eDu &]

Gracias Ya me funciona :=)