Dim data As New ArrayList
 
        data.Add("abc")
        data.Add("pqr")
 
        ' ArrayList schreiben
        Dim sw As New StreamWriter("C:\xdata.xml")
 
        Dim xs As New XmlSerializer(data.GetType())
 
        xs.Serialize(sw, data)
        sw.Close()
 
        ' ArrayList wieder einlesen
        Dim data1 As ArrayList
        Dim sr As New StreamReader("C:\xdata.xml")
 
        data1 = xs.Deserialize(sr)
        sr.Close()
 
        Debug.WriteLine(data1(0).ToString())
        Debug.WriteLine(data1(1).ToString())