'先引用microsoft xml ,v5.0对象
    Private Sub loadxml()
        Dim XML As Xml.XmlDocument  'xml 对象
        Dim XmLRoot As MSXML2.IXMLDOMElement 'xml根节点
        Dim I As Integer
        XML = New Xml.XmlDocument
        If XML.Load([color=#00FF00]App.Path & "/XML.xml") = False Then '(app.path & "/XML.xml")[/color]
            MsgBox("打开xml出错!")
            Exit Sub
        End If
        XmLRoot = XML.DocumentElement '建立根节点对象
        For I = 1 To XmLRoot.childNodes.length
            MsgBox(XmLRoot.childNodes.item(I).nodeName) '获得所有根节点下所有子节点的节点名
            MsgBox(XmLRoot.childNodes.item(I).text)  '获得所有根节点下所有子节点所含的文本内容
        Next
        XML = Nothing
    End Sub
End Class