Private Sub Form_Open(Cancel As Integer)
'Change the URL to the actual URL Path for the image
Const urlPath As String = "http://www.mysite.com/image.jpg"
Dim byteData() As Byte ' image file data
Dim urlFile As String ' parsed image file name
Dim XMLHTTP As Object ' HTTP object
' Parse the image filename from the URL Path
urlFile = Mid(urlPath, InStrRev(urlPath, "/"))
' Create the IE HTTP Object
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
' Send the request for the image file
XMLHTTP.Open "GET", urlPath, False
XMLHTTP.send
' Load the image file data from the response
byteData = XMLHTTP.responseBody
' Clear the IE HTTP Object
Set XMLHTTP = Nothing
' Write the image file to the Current User's Temp Directory
Open Environ("Temp") & urlFile For Binary Access Write As #1
Put #1, , byteData
Close #1
'Load the image from the Temp file
Me.[b]Image0[/b].Picture = LoadPicture(Environ("Temp") & urlFile)
' [b]--^^^---[/b] change this to the actual image control name
' Delete the Temp file
Kill Environ("Temp") & urlFile
End Sub