在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事件來處理響應。
