Réponse acceptée !
Dim doc As New System.Xml.XmlDocument
Dim rd As New System.Xml.XmlTextReader("C:\temp\toto.xml")
rd.MoveToContent()
Dim node As System.Xml.XmlNode = doc.ReadNode(rd).SelectNodes("map")(0)
Dim at As System.Xml.XmlAttribute = node.Attributes("value")
MessageBox.Show(at.Value)
---- Sevyc64 (alias Casy) ----
# LE PARTAGE EST NOTRE FORCE #
[ Lien ]