Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim doc As XmlDocument = New XmlDocument() doc.Load("c:\sample2.xml") Dim nsmgr1 As XmlNamespaceManager = New XmlNamespaceManager(doc.NameTable) nsmgr1.AddNamespace("smpl", "http://www.atmarkit.co.jp/xmlns/sample/shoseki/info") Trace.WriteLine("最初の名前") Dim list1 As XmlNodeList = doc.SelectNodes("(/smpl:書籍情報/smpl:著者/smpl:名前)[1]", nsmgr1) Dim node As XmlNode For Each node In list1 Trace.WriteLine(node.InnerText) Next Trace.WriteLine("2番目の名前") Dim list2 As XmlNodeList = doc.SelectNodes("(/smpl:書籍情報/smpl:著者/smpl:名前)[2]", nsmgr1) For Each node In list2 Trace.WriteLine(node.InnerText) Next Trace.WriteLine("最後の名前") Dim list3 As XmlNodeList = doc.SelectNodes("(/smpl:書籍情報/smpl:著者/smpl:名前)[last()]", nsmgr1) For Each node In list3 Trace.WriteLine(node.InnerText) Next End Sub