'// Nodes serialisieren:
     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As _
       System.EventArgs) Handles Button7.Click
        If IO.File.Exists("nodes.dat") Then IO.File.Delete("nodes.dat")
        Dim ser As New _
          System.Runtime.Serialization.Formatters.Soap.SoapFormatter
        Dim fs As New IO.FileStream("nodes.dat", IO.FileMode.CreateNew)
        Dim ar As New ArrayList
        For Each node As TreeNode In Me.TreeView1.Nodes
            ar.Add(node)
        Next
        ser.Serialize(fs, ar)
        fs.Close()
    End Sub
 
    '// Nodes deserialisieren:
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button8.Click
        Dim sr As IO.FileStream = IO.File.Open("nodes.dat", IO.FileMode.Open)
        Dim ser As New _
          System.Runtime.Serialization.Formatters.Soap.SoapFormatter
        Dim ar As ArrayList
        ar = ser.Deserialize(sr)
        sr.Close()
        For Each node As TreeNode In ar
            Me.TreeView1.Nodes.Add(node)
        Next
    End Sub