Dim myXmlHttp As XMLHTTP
    Set myXmlHttp = New XMLHTTP
    myXmlHttp.Open "GET", "http://m.baidu.com", False
    myXmlHttp.send
    Dim BaiduNow As Date
    BaiduNow = DateFromHTTP(myXmlHttp.getResponseHeader("Date"))
    BaiduNow = DateAdd("h", 8, BaiduNow)

想获取网络时间，为何在W7中可以用，W10中提示用户定义类型未定义。在引用中也加载了microsoft XML,v6.0。请高手指点下。

求高手指点下。

引用错了，xml和xmlhttp并不是一回事。
microsoft XML,v6.0是xml数据文件格式读写的组件，xmlhttp是网络访问的组件。