Cargar imagen desde internet

[Sinnerenecia]

Bien! Creo que ya la tengo!

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
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

Private Sub Form_Load()
If App.PrevInstance Then Unload Me
DownloadFile "http://www.xxx.commapa.jpg", "c:\Imagen.jpg"
Image1 = LoadPicture("C:\imagen.jpg")
End Sub

Private Sub Form_Click()
Unload Me
End Sub


Private Sub Timer1_Timer()
Image1.Visible = Not (Image1.Visible)
Image1.Image1 = loadImage1("c:\imagen.jpg")
End Sub

Sugerencia para los novatos (como yo) No pregunteis por preguntar, intentar hacerlo por vosotros mismos. Se aprende un montón!

Solo tengo una duda ahora, se cargará la imagen automaticamente cada vez que actualicen el jpg en el servidor?