Public Class frmTreeView
    Private Sub frmTreeView_Load(sender As Object, e As EventArgs) Handles Me.Load
        TreeView1.Nodes.Clear()
        TreeView1.ImageList = ImageList1
        If Not IsNothing(CurrMatchTreeView) Then
            CurrMatchTreeView.BeginUpdate()


            For Each node As TreeNode In CurrMatchTreeView.Nodes
                If IsNothing(node.Tag) Then
                    node.ImageIndex = 0
                Else
                    node.ImageIndex = 2
                End If
                TreeView1.Nodes.Add(node.Clone)
            Next
            CurrMatchTreeView.EndUpdate()
        End If
        TreeView1.ExpandAll()
    End Sub
End Class