Imports System.Xml
 
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Doc As New XmlDocument, Nodo As XmlNode
 
        Dim Lista As ArrayList = New ArrayList()
 
        Lista.Add("Mace Windu")
        Lista.Add("Kamui")
        Lista.Add("Chipbios")
        Lista.Add("Vengador de las Sombras")
 
        Nodo = Doc.CreateElement("Equipo")
 
        Doc.AppendChild(Nodo)
 
        For Each Elemento As String In Lista
            Nodo = Doc.CreateElement("Miembro")
            Nodo.InnerText = Elemento
            Doc.DocumentElement.AppendChild(Nodo)
        Next
 
        Doc.Save(Application.StartupPath & "\FoSTeaM.xml")
    End Sub
End Class

Imports System.Xml
 
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Doc As New XmlDocument, ListaNodos As XmlNodeList, Nodo As XmlNode
        Dim Lista As ArrayList = New ArrayList()
 
        Doc.Load(Application.StartupPath & "\FoSTeaM.xml")
 
        ListaNodos = Doc.SelectNodes("/Equipo/Miembro")
 
        For Each Nodo In ListaNodos
            Lista.Add(Nodo.ChildNodes.Item(0).InnerText)
        Next
    End Sub
End Class