vb6.0 读取xml文件

xml文件名2.xml
<?xml version="1.0" encoding="utf-8" ?>
<testlist>
<test>
<id>我在遥望</id>
<name>月亮之上</name>
<time>有多少梦想</time>
<mdn>在自由的飞翔</mdn>
</test>
<test>
<id>天上人间</id>
<name>自由自在</name>
<time>2007-12-7</time>
<mdn>今天休息</mdn>
</test>
</testlist>
--------------------------------------------------------
vb6.0原代码:Option Explicit
Dim XMLDoc As DOMDocument
Dim xList As IXMLDOMNodeList
Private Sub Form_Load()
Set XMLDoc = New DOMDocument
Dim n As Long
Dim i As Long
If XMLDoc.Load("\2.xml") Then
Set xList = XMLDoc.getElementsByTagName("test")
For i = 0 To xList.length - 1
Me.List1.AddItem xList.Item(i).Text
Next i
For n = 0 To xList.length - 1
For i = 0 To xList.Item(n).childNodes.length - 1
Me.List1.AddItem xList.Item(n).childNodes.Item(i).Text
Next i
Next n
End If
End Sub '----------放一个LIST控件