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")
  Dim list1 As XmlNodeList = doc.SelectNodes("/smpl:書籍情報/smpl:著者", nsmgr1)
  If list1.Count > 0 Then
    Dim list2 As XmlNodeList = list1(0).SelectNodes("smpl:名前", nsmgr1)
    Dim node As XmlNode
    For Each node In list2
      Trace.WriteLine(node.InnerText)
    Next
  End If
End Sub