Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim tn As TreeNode
        Me.TreeView1.ImageList = Me.ImageList1
        For a As Integer = 10 To 0 Step -1
            tn = New TreeNode(a.ToString)
            tn.ImageIndex = 2
            For b As Integer = 0 To 2
                tn.Nodes.Add(New TreeNode(b.ToString))
            Next
            Me.TreeView1.Nodes.Add(tn)
        Next
    End Sub
    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
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button8.Click
        Me.TreeView1.ImageList = Me.ImageList1
        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
        Try
            ar = CType(ser.Deserialize(sr), ArrayList)
        Catch ex As System.Runtime.Serialization.SerializationException
            Debug.WriteLine(ex.ToString)
        Catch ex As Exception
            Debug.WriteLine(ex.ToString)
        End Try
        sr.Close()
        Me.TreeView1.Nodes.AddRange(CType(ar.ToArray(GetType(TreeNode)), _
          TreeNode()))
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.TreeView1.Nodes.Clear()
    End Sub
End Class