Public Structure DatenStruktur
        Dim Text As String
        Dim Zahl As Integer
        Dim Zahl2 As Long
    End Structure
 
    Public Daten(10) As DatenStruktur
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 0 To 10
            Daten(i).Text = "Text " & i
            Daten(i).Zahl = 100 + i
            Daten(i).Zahl2 = 200000 + CLng(i)
        Next i
    End Sub
 
    Public Sub DatenSpeichern()
        Dim Datei As String
        Datei = Application.StartupPath & "\Daten.xml"
        Dim objDatei As New System.IO.FileStream(Datei, IO.FileMode.Create)
        Dim objSerializer As System.Xml.Serialization.XmlSerializer
        objSerializer = New System.Xml.Serialization.XmlSerializer( _
          Daten.GetType)
        objSerializer.Serialize(objDatei, Daten)
        objDatei.Close()
    End Sub