Dim root As TreeNode
        root = New TreeNode("This computer")
        root.ImageIndex = 5
        root.SelectedImageIndex = 5

        'HKEY_CLASSES_ROOT
        Dim rootnode As TreeNode
        rootnode = New TreeNode(Microsoft.Win32.Registry.ClassesRoot.Name.ToString)
        rootnode.ImageIndex = 4
        rootnode.SelectedImageIndex = 4
        Dim rootsubkeys() As String = Microsoft.Win32.Registry.ClassesRoot.GetSubKeyNames()
        For Each k As String In rootsubkeys
            Dim node As TreeNode
            node = New TreeNode(k)
            node.ImageIndex = 3
            node.SelectedImageIndex = 3
            Dim subkeys() As String = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(k).GetSubKeyNames()
            For Each subkeyskey As String In subkeys
                node.Nodes.Add(subkeyskey, subkeyskey, 0, 3)
            Next
            rootnode.Nodes.Add(node)
        Next
        root.Nodes.Add(rootnode)

tReg.Nodes.Add(root)

        tReg.Nodes(0).ExpandAll()