Error en la llamada al método abierto vb xmlhttp

Sub Form1_Load privado (remitente ByVal como System.Object, ByVal y como System.EventArgs) maneja MyBase.Load

Dim xmlHttp como nuevo MSXML2.XMLHTTP60

xmlHttp.open("GET", "www.baidu.com"" target="_blank"gt;", False)

xmlHttp.send()

Hacer mientras sea verdadero

Si xmlHttp.readyState lt；gt; 4 Entonces

Application.DoEvents()

De lo contrario

Salir Do

End If

Loop

Debug.Print(xmlHttp.responseText)

End Sub

Agregar referencia de microsoft xml 6.0p>