【www.gdgbn.com--Dom教程】

Dim domXmlDocument As System.Xml.XmlDocument
    Dim tmpPath As String = AppTempFilePath
    Dim xmlFile As String = tmpPath + " estXml.xml" 
’窗体加载事件
    Private Sub TestXml_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ’读xml过程测试通过
        Dim domXmlDocument As System.Xml.XmlDocument
        Dim tmpPath As String = AppTempFilePath
        Dim xmlFile As String = tmpPath + " estXml.xml"
        Dim reader As System.Xml.XmlReader = Nothing
        Try
       reader = New Xml.XmlTextReader(xmlFile)
       ’reader.
       While reader.Read
           Me.lboxXml.Items.Add(reader.Name + reader.Value)
       End While
        Catch ex As Exception

本文来源：http://www.gdgbn.com/wangyezhizuo/4577/