Control listview y treeview en vb6

[pabje]

Hola a Todos

Solo quisera sabe como agregar un elemento mas en el siguiente codigo.
El codigo es un listin(telefonos,direcciones, etc) de amigos , clientes, proveedores y quiero agragar un elemento mas llamado vida estudiantil.
Como lo puedo hacer:
Aca tengo un segmento del codigo .En este codigo tengo que agregar ese elemento. ¿ Como lo hago?

Private Sub CrearArbol()
Dim nodox As Node, n As Integer, C As Byte

'Primer nodo "Raiz" con el texto "Teléfonos"
Set nodox = tvTreeView.Nodes.Add(, , "Raíz", "Teléfonos", "raíz")
nodox.Tag = "Raíz" 'Nodo Raíz
For n = 1 To NCATEGORIAS
'Nodos hijo de "Raíz"
Set nodox = tvTreeView.Nodes.Add("Raíz", tvwChild, mcategoría(n), mcategoría(n), n)
nodox.Tag = n 'categoría N
'nodos hijo de mcategoria(N)
For C = Asc("A") To Asc("Z")
Set nodox = tvTreeView.Nodes.Add(mcategoría(n), tvwChild, , Chr(C), "persona", "selección")
Next C
Next n
End Sub


Private Sub tvTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
'Enlace del árbol con el fichero de datos a través
'de la matriz mnlista
Dim ElementoX As ListItem 'elemento de la lista
Dim subElementox As ListSubItem 'subelemento
Dim n As Integer, categ As Integer
lvListView.ListItems.Clear
If Node.Tag <> "" Then Exit Sub
categ = Node.Parent.Tag
For n = 1 To nfilas(categ)
With mlistin(n, categ)
If Left(.apellidos, 1) = Node.Text Then
' Pertenece a ese nodo
' Añadirlo al control list view.
Set ElementoX = lvListView.ListItems.Add()
ElementoX.Icon = categ
ElementoX.SmallIcon = categ
ElementoX.Text = .apellidos
'Añadir los sublementos del elemento añadido
Set subElementox = ElementoX.ListSubItems.Add()
subElementox.Text = .nombre
Set subElementox = ElementoX.ListSubItems.Add()
subElementox.Text = .Teléfono
Set subElementox = ElementoX.ListSubItems.Add()
subElementox.Text = .email
Set subElementox = ElementoX.ListSubItems.Add()
subElementox.Text = .Dirección
Set subElementox = ElementoX.ListSubItems.Add()
subElementox.Text = .identificador
End If
End With
Next n
End Sub

Gracias.