1 打開VB6.0 File--->New Project---->Standard ExE---->OK
2 打開菜單Project---->Reference---->選中Microsoft XML，V6.0---->OK
3 打開菜單Project---->Components---->選中Microsoft Windows Common Controls 6.0---->确定，
4 建立如下的Form
5 在Form_Load 下添加代碼
ListView1.ColumnHeaders.Add , , "Flow", ListView1.Width / 2
ListView1.ColumnHeaders.Add , , "Number", ListView1.Width / 2
ListView1.View = lvwReport
6 在CreateXML按鈕下添加代碼，建立一個XML檔案
Dim XmlDoc As DOMDocument
Set XmlDoc = New DOMDocument
XmlDoc.loadXML "<Data><Flow><Name>車加工</Name><Number>1</Number></Flow><Flow><Name>銑加工</Name><Number>2</Number></Flow></Data>"
XmlDoc.save "d:\flow.xml"
7在ReadXML按鈕下添加代碼
Dim XMlRoot As IXMLDOMNode, XmlNode As IXMLDOMNode, XmlFor As IXMLDOMNode
Dim XmlList As IXMLDOMNodeList, XmlListFor As IXMLDOMNodeList
Dim i As Integer
XmlDoc.Load "d:\flow.xml"
Set XmlNode = XmlDoc.selectSingleNode("Data")
Set XmlList = XmlNode.childNodes
ListView1.ListItems.Clear
For Each XmlFor In XmlList
Set XmlListFor = XmlFor.childNodes
With ListView1.ListItems.Add(, , XmlListFor.Item(0).Text)
.SubItems(1) = XmlListFor.Item(1).Text
End With
Next
7 F5運作，先點選CreateXML按鈕，在點選ReadXML按鈕，所得運作結果如圖
8 打開D盤下的Flow.xml檔案，我們可以看到XML檔案内容
9 END