Загрузка картинки из Интернета - VB

Формулировка задачи:

В соседней ветке была задача отобразить картинку в Picture1 с локального источника. Так, а если посложнее задача стоит? Нужно загрузить картинку из интернета (http://..../pic.jpg). Причём, задачу желательно решить без сохранения ресурса на жёсткий диск. В общем, получить массив байт. Кто-то делать что-нить будь на данном направлении? Может есть советы, рекомендации?

Кажется разобрался сам. Спасибо.

Решение задачи: «Загрузка картинки из Интернета»

textual
                            Листинг программы 
                        

                            InetFile = "http://www.cyberforum.ru/customavatars/avatar226808_1.gif"
localFile = Environ("temp") & "\" & Mid(InetFile, InStrRev(InetFile, "/") + 1)
 
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", InetFile, 0
oXMLHTTP.Send
 
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
 
oADOStream.SaveToFile localFile, 2
 
Set oXMLHTTP = Nothing
Set oADOStream = Nothing
 
Picture1.Picture = LoadPicture(localFile)
                        