Shortest VB6 HTML scrape code

Hello all. I was wondering if anyone has some insight as to the easiest (least code) way to accomplish an equivalent of the following using VB6:

#---begin python code---

import urllib
data = urllib.urlopen("http://www.google.com").read()
print data

#---end python code---

In case this isn't self explanatory, these three lines of python code will fetch the HTML source of a page and print it to the screen.

So far, the things that I can think of are:
winsock, wininet, asyncread, XMLHTTPRequest

Thanks in advance!

XMLHTTPRequest is pretty straightforward. There's also the OpenURL method of the Internet Transfer control.