1：新建窗体

2：添加按钮Command1

3：添加Text1空间用来得到存放网页代码。

代码：

Private Sub Command1_Click()
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.Open "get","http://www.qq.com",True
xmlHTTP1.send
While xmlHTTP1.readyState <> 4
DoEvents
Wend
Text1.Text = xmlHTTP1.responseText
Set xmlHTTP1 = Nothing
End Sub