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:\sample.xml")
  Dim list As XmlNodeList = doc.SelectNodes("/書籍情報/著者/名前")
  Dim node As XmlNode
  For Each node In list
    Trace.WriteLine(node.InnerText)
  Next
End Sub