在VB6中，可以使用MSXML2.XMLHTTP对象来实现抓取网页内容。以下是一个示例代码：
Private Sub Command1_Click()
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
xmlhttp.Open "GET", "http://www.example.com", False
xmlhttp.Send
MsgBox xmlhttp.responseText
Set xmlhttp = Nothing
End Sub
在代码中，CreateObject("MSXML2.XMLHTTP")用于创建一个XMLHTTP对象。然后使用Open方法打开要抓取的网页，并使用Send方法发送请求。最后，使用responseText属性获取抓取到的网页内容，并使用MsgBox函数在消息框中显示内容。
请注意，该示例代码中使用的是同步方式获取网页内容，即程序会等待网页响应返回后再继续执行后续代码。如果需要使用异步方式，可以使用MSXML2.XMLHTTP.6.0对象，并使用onreadystatechange事件来处理响应。
