¿Cómo utilizar el árbol de directorios TREEVIEW en vb6.0?

'Establecer propiedades de control Treeview.

TreeView1.LineStyle = tvwRootLines ' Estilo de línea 1

'Agregar objeto Nodo.

Dim nodX As Node 'Declara variables de nodo.

'El primer nodo con el texto 'Raíz'.

Set nodX = TreeView1.Nodes.Add(, , "r", "Class Name")

'El siguiente nodo es un nodo secundario del nodo 1 ("Root") .

Llamar a TreeView1.Nodes.Add("r", tvwChild, "class2007", "Class 2007")

Llamar a TreeView1.Nodes.Add("r", tvwChild, " class2008", "Clase 2008")

Llame a TreeView1.Nodes.Add("r", tvwChild, "class2009", "Clase 2009")